scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
quantum-espresso/flib/int_to_char.f90

36 lines
842 B
Fortran
Raw Normal View History

- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!-----------------------------------------------------------------------
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
FUNCTION int_to_char( i )
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!-----------------------------------------------------------------------
!
IMPLICIT NONE
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
INTEGER, INTENT(IN) :: i
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
CHARACTER (LEN=6) :: int_to_char
!
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
IF ( i < 10 ) THEN
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
WRITE( UNIT = int_to_char , FMT = "(I1)" ) i
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
ELSE IF ( i < 100 ) THEN
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
WRITE( UNIT = int_to_char , FMT = "(I2)" ) i
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
ELSE IF ( i < 1000 ) THEN
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
WRITE( UNIT = int_to_char , FMT = "(I3)" ) i
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
ELSE IF ( i < 10000 ) THEN
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
WRITE( UNIT = int_to_char , FMT = "(I4)" ) i
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
ELSE
!
More cleanup from Axel: - replace variables that have the names of keywords: IF (this should make the code non-compilable!), INT, SCALE. - CALL getenv -> CALL get_env (which is the only place to call getenv(). BTW, newer fortran standards now recommend to use CALL get_environment_variable, so it might be needed to have only one platform dependend place) - makefile cleanup in VIB (more consistent with subdirs, not yet perfect). - whitespace fix (avoid tabs!). git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3591 c92efa57-630b-4861-b058-cf58834340f0
2006-12-11 18:19:53 +08:00
WRITE( UNIT = int_to_char , FMT = "(I5)" ) i
- Variable cell: use Cesar Da Silva's version of the damping algorithm (he claims it is more tested); documentation updated (sort of) - routines find_free_unit, delete_if_present, moved from 'parser' to 'io_files' (it is a more natural place) - routines int_to_char moved from 'parser' to flib/ (it is quite unrelated with the rest of the module) - routine trimcheck moved from flib/ to 'io_files' (more natural place) git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2753 c92efa57-630b-4861-b058-cf58834340f0
2006-02-02 01:56:16 +08:00
!
END IF
!
RETURN
!
END FUNCTION int_to_char