223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

polished some syntax problems

This commit is contained in:
Philip Eisenlohr 2007-03-21 14:49:21 +00:00
parent 7ec7d1af72
commit 2b05803684
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
trunk/IO.f90
View File

@ -286,7 +286,7 @@
!******************************************************************** !********************************************************************
! read string value at pos from line ! read string value at pos from fixed format line
!******************************************************************** !********************************************************************
FUNCTION IO_fixedStringValue (line,ends,pos) FUNCTION IO_fixedStringValue (line,ends,pos)
@ -295,7 +295,7 @@
character(len=*) line character(len=*) line
integer(pInt) ends(*),pos integer(pInt) ends(*),pos
character(len=positions(pos)-positions(pos-1)) IO_stringValue character(len=ends(pos)-ends(pos-1)) IO_fixedStringValue
IO_fixedStringValue = line(ends(pos-1)+1:ends(pos)) IO_fixedStringValue = line(ends(pos-1)+1:ends(pos))
return return
@ -324,7 +324,7 @@
!******************************************************************** !********************************************************************
! read float value at pos from line ! read float value at pos from fixed format line
!******************************************************************** !********************************************************************
FUNCTION IO_fixedFloatValue (line,ends,pos) FUNCTION IO_fixedFloatValue (line,ends,pos)
@ -344,18 +344,18 @@
!******************************************************************** !********************************************************************
! read float value at pos from line ! read float x.y+z value at pos from format line line
!******************************************************************** !********************************************************************
FUNCTION IO_fixedFloatValue (line,ends,pos) FUNCTION IO_fixedNoEFloatValue (line,ends,pos)
use prec, only: pReal,pInt use prec, only: pReal,pInt
implicit none implicit none
character(len=*) line character(len=*) line
real(pReal) IO_fixedFloatValue,base,expon real(pReal) IO_fixedNoEFloatValue,base,expon
integer(pInt) ends(*),pos,pos_exp integer(pInt) ends(*),pos,pos_exp
pos_exp = scan(line(ends(pos-1)+1:ends(pos),'+-',back=.true.) pos_exp = scan(line(ends(pos-1)+1:ends(pos)),'+-',back=.true.)
if (pos_exp > 1) then if (pos_exp > 1) then
READ(UNIT=line(ends(pos-1)+1:ends(pos-1)+pos_exp-1),ERR=100,FMT='(F)') base READ(UNIT=line(ends(pos-1)+1:ends(pos-1)+pos_exp-1),ERR=100,FMT='(F)') base
READ(UNIT=line(ends(pos-1)+pos_exp:ends(pos)),ERR=100,FMT='(F)') expon READ(UNIT=line(ends(pos-1)+pos_exp:ends(pos)),ERR=100,FMT='(F)') expon