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

changed file read formats from explicit types to more general (and not 

harmful) '*'
This commit is contained in:
Denny Tjahjanto 2008-03-12 13:53:00 +00:00
parent 5641cfd477
commit 778cbcd3ca
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
trunk/IO.f90
View File

@ -165,7 +165,7 @@
do phi1=1,steps(1) do phi1=1,steps(1)
do Phi=1,steps(2) do Phi=1,steps(2)
do phi2=1,steps(3) do phi2=1,steps(3)
read(999,fmt='(F)',end=100) prob read(999,fmt=*,end=100) prob
if (prob > 0.0_pReal) then if (prob > 0.0_pReal) then
NnonZero = NnonZero+1 NnonZero = NnonZero+1
sum_dV_V = sum_dV_V+prob sum_dV_V = sum_dV_V+prob
@ -368,8 +368,8 @@
pos_exp = scan(line(ends(pos)+1:ends(pos+1)),'+-',back=.true.) pos_exp = scan(line(ends(pos)+1:ends(pos+1)),'+-',back=.true.)
if (pos_exp > 1) then if (pos_exp > 1) then
read(UNIT=line(ends(pos)+1:ends(pos)+pos_exp-1),ERR=100,FMT='(F)') base read(UNIT=line(ends(pos)+1:ends(pos)+pos_exp-1),ERR=100,FMT=*) base
read(UNIT=line(ends(pos)+pos_exp:ends(pos+1)),ERR=100,FMT='(I)') expon read(UNIT=line(ends(pos)+pos_exp:ends(pos+1)),ERR=100,FMT=*) expon
else else
read(UNIT=line(ends(pos)+1:ends(pos+1)),ERR=100,FMT=*) base read(UNIT=line(ends(pos)+1:ends(pos+1)),ERR=100,FMT=*) base
expon = 0_pInt expon = 0_pInt
@ -395,7 +395,7 @@
integer(pInt) positions(*),pos integer(pInt) positions(*),pos
if (positions(1) >= pos) then if (positions(1) >= pos) then
read(UNIT=line(positions(pos*2):positions(pos*2+1)),ERR=100,FMT='(I)') IO_intValue read(UNIT=line(positions(pos*2):positions(pos*2+1)),ERR=100,FMT=*) IO_intValue
return return
endif endif
100 IO_intValue = huge(1_pInt) 100 IO_intValue = huge(1_pInt)
@ -416,7 +416,7 @@
integer(pInt) IO_fixedIntValue integer(pInt) IO_fixedIntValue
integer(pInt) ends(*),pos integer(pInt) ends(*),pos
read(UNIT=line(ends(pos)+1:ends(pos+1)),ERR=100,FMT='(I)') IO_fixedIntValue read(UNIT=line(ends(pos)+1:ends(pos+1)),ERR=100,FMT=*) IO_fixedIntValue
return return
100 IO_fixedIntValue = huge(1_pInt) 100 IO_fixedIntValue = huge(1_pInt)
return return