76 INTEGER,
INTENT(in) :: &
78 INTEGER,
INTENT(out) :: &
80 CHARACTER(80),
INTENT(out) :: &
82 CHARACTER(1),
OPTIONAL,
INTENT(in) :: &
86 CHARACTER(1) :: ychar,ycomment
87 CHARACTER(80) :: yline
94 IF (present(hcomment))
THEN
107 DO WHILE ( ychar==ycomment .AND. kend==0 )
108 READ( klun,fmt=
'(A)',iostat=kend ) yline
109 yline = trim( yline )
120 IF ( yline(ji:ji)==
'=' )
EXIT
124 hval = yline(ji+1:80)
126 IF (lwg)
WRITE(*,*) trim(hpar) //
' = ' // trim(hval)