75 USE modi_gltools_nextline
81 INTEGER,
INTENT(in) :: &
83 CHARACTER(80),
DIMENSION(:),
INTENT(in) :: &
85 INTEGER,
DIMENSION(:),
INTENT(inout) :: &
87 INTEGER,
INTENT(out) :: &
89 CHARACTER(80),
INTENT(out) :: &
91 CHARACTER(1),
OPTIONAL,
INTENT(in) :: &
96 CHARACTER(1) :: ycomment
103 IF (present(hcomment))
THEN
119 infld =
SIZE(hlistfld)
123 WRITE(*,*)
'********************************************* '
124 WRITE(*,*)
'*** No valid entry was found in gltpar for :'
126 IF ( klistfound(ji)==0 )
WRITE(*,*) hlistfld(ji)
128 WRITE(*,*)
'*** Check gltpar file. We stop.'
133 IF ( trim(adjustl(hlistfld(ji)))==trim(adjustl(hpar)) )
THEN
139 IF ( all(klistfound==1) )
THEN