Changeset 3785 for palm/trunk/UTIL/inifor/tests/test-input-files.f90
- Timestamp:
- Mar 6, 2019 10:41:14 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/tests/test-input-files.f90
r3681 r3785 15 15 ! PALM. If not, see <http://www.gnu.org/licenses/>. 16 16 ! 17 ! Copyright 2017-201 8Leibniz Universitaet Hannover18 ! Copyright 2017-201 8Deutscher Wetterdienst Offenbach17 ! Copyright 2017-2019 Leibniz Universitaet Hannover 18 ! Copyright 2017-2019 Deutscher Wetterdienst Offenbach 19 19 !------------------------------------------------------------------------------! 20 20 ! … … 90 90 DO i = 1, 6 91 91 res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i))) 92 END 92 ENDDO 93 93 94 94 DEALLOCATE( ref_list, file_list ) … … 115 115 DO i = 1, 2 116 116 res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i))) 117 END 117 ENDDO 118 118 119 119 DEALLOCATE( ref_list, file_list ) … … 145 145 DO i = 1, 2 146 146 res = res .AND. (TRIM(ref_list(i)) .EQ. TRIM(file_list(i))) 147 END 147 ENDDO 148 148 149 149 DEALLOCATE( ref_list, file_list )
Note: See TracChangeset
for help on using the changeset viewer.