SUBROUTINE IOinput(CHARKEY,CHAR,ILINE,IFILE,IERROR)
c *********************************************************
c * This routine is responsible for the I/O
c * with the input file.
c *
c * GIVEN a KEYWORD: CHARKEY it positions the
c * reading just after the CHARKEY if this
c * includes a '=', or ILINE lines after the
c * occurence of THE CHARKEY.
c * USAGE :
c * To read lmax include in the input card (ifile)
c *
c * LMAX= 3 CORRECT!
c *
c * or
c *
c * LMAX CORRECT! (iline=1)
c * 3
c * (without the '=' )
c * LMAX
c * --------- (iline=2),etc
c * 3
c * be carefull in this case to put the value after the
c * keyword example:
c *
c * LMAX
c * 3 WRONG!
c *
c * will NOT work
c * Comments etc in the program are ignored.
c * 1.6.99
c *
c * The error handler is not working yet in all cases ....
c * Only files NLINEMAX lines long can be read in
c *******************************************************
implicit none
c#@# KKRtags: VORONOI input-output deprecated
INTEGER NLINEMAX
PARAMETER (NLINEMAX = 3000)
CHARACTER CHARKEY*10
CHARACTER CHARKEY1*11
CHARACTER CHAR*200
INTEGER ILINE,IERROR,IFILE
integer i,ios,ier,npt,ilen,ipos,ipos1,ipos2,iklen,aaaa
CHARACTER STRING(NLINEMAX)*200
CHARACTER STRING1*200
INTEGER NABC
PARAMETER (NABC=39)
CHARACTER ABC*NABC
CHARACTER ATEST
DATA ABC/'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-<>'/
c
IER = 0
IERROR = 0
CHAR(1:50)=' '
OPEN(UNIT=ifile,status='OLD',FILE='inputcard',iostat=ios,
& err=2000)
if (ios.gt.0) then
write(6,*) "Error in reading the inputcard file"
STOP
end if
c
c
npt = 1
do
read(ifile,FMT='(A200)',IOSTAT=ios) STRING(npt)
IF(ios.lt.0.or.npt.ge.NLINEMAX) EXIT
npt = npt + 1
end do
npt = npt - 1
c write(6,*) 'LINES :',npt
if (NPT.GE.NLINEMAX)
& WRITE(6,*)'Not all lines are read in from inputcard'
c 2 lines below where changed
c ILEN = VERIFY(CHARKEY,ABC)
c IKLEN= VERIFY(CHARKEY,' ')
c for linux
CALL VERIFY77(CHARKEY,ILEN, IKLEN)
c for linux
c write(6,*) CHARKEY(1:ILEN-1),ILEN,IKLEN
IF(ILEN.LT.1) THEN
write(6,*) 'Input ERROR!'
write(6,*) 'Cannot evaluate : ',CHARKEY
write(6,*) 'IoInput is returning no value! '
RETURN
END IF
c
DO i=1,NPT ! loop in all line
STRING1 = ' ' // STRING(I) ! shift by 2 characters
IPOS = INDEX(STRING1,CHARKEY(1:ILEN-1)) ! return the position of occurence
if (ipos.ne.0) then
if (ipos.lt.4) then
write(6,*) 'CONSISTENCY ERROR IOINPUT!'
STOP
end if
c write(6,*) 'ipos is not zero',CHARKEY//'=','**'
ipos1= INDEX(STRING1,CHARKEY(1:ILEN-1)//ACHAR(61))
if (IPOS1.NE.0) then ! return the string after 'CHARKEY='
CHAR = STRING1(ipos1+ilen:)
c write(6,*) CHARKEY,CHAR ! test
close(IFILE)
return
else
c return the ILINE line below this CHARKEY
if (I+ILINE.LE.NPT) then
c write(6,*) IPOS,ILEN
CHAR = STRING(I+ILINE)(IPOS-3:)
if (ipos-4.gt.0) then ! Changed on 28.01.2000
ATEST= STRING(I+ILINE)(IPOS-4:IPOS-3)
IF (ATEST.NE.' ') THEN
write(6,*) 'Possible ERROR !!!'
write(6,*) 'Parameter ',CHARKEY,
& ' maybe read in incorrectrly'
END IF
end if
c write(6,*) CHARKEY,CHAR ! test
close(ifile)
return
else
write(6,*) 'IoInput : No more lines in file '
end if
end if
end if
END DO ! i=1,npt
IER = 1
IERROR = IERROR + IER
if (CHAR(1:20).eq.' ') then
write(6,*) 'Parameter ........ ',CHARKEY , ' NOT found'
write(6,*) 'Check your inputcard'
end if
close(IFILE)
RETURN
2000 write(6,*) ' Error while reading..... ',CHARKEY
write(6,*) ' Check your inputcard ! '
STOP
1000 FORMAT(10I4)
1001 FORMAT(3F12.9)
1002 FORMAT(200A1)
1003 FORMAT(10L4)
1004 FORMAT(I4)
1005 FORMAT(4I4)
END
SUBROUTINE VERIFY77(STR1,ipos1,ipos2)
c#@# KKRtags: VORONOI undefined
implicit none
c This sub returns the position of the first space character
c in ipos2, and the position of the first letter in the string
c STR1
c
INTEGER NABC
PARAMETER (NABC=39)
CHARACTER STR1*10
CHARACTER ABC*NABC
CHARACTER CHAR*1
integer ipos,ipos1,ipos2,i,j
DATA ABC/'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-<>'/
ipos2 =0
c
ipos1 = INDEX(STR1,' ')
do j=1,10
char = str1(j:j+1)
c write(6,*) 'char : ',j, char
ipos = 0
do i=1,NABC
ipos = INDEX(CHAR,ABC(I:I))
if (IPOS.GT.0) THEN
ipos2 = j
RETURN
end if
end do
end do
RETURN
END
