Commit b3028d14 authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Use test_data folder as input for source files

parent 64aafe7f

src/cluster/clu.f

+2 −2
Original line number Diff line number Diff line
@@ -196,7 +196,7 @@ CCC AS A FUNCTION OF INCIDENCE ANGLES 
CCC              FOR A FIXED SCATTERING ANGLE THSCA=THS-TH;

CCC              NEEDS ONLY TH, PH, THS

CCC

      OPEN(IR,FILE='DCLU',STATUS='OLD')

      OPEN(IR,FILE='../../test_data/cluster/DCLU',STATUS='OLD')

      READ(IR,*)NSPH,LI,LE,MXNDM,INPOL,NPNT,NPNTTS,IAVM,ISAM

      DO 101 I=1,NSPH

  101 READ(IR,*)RXX(I),RYY(I),RZZ(I)

src/cluster/edfb.f

+2 −2
Original line number Diff line number Diff line
@@ -46,7 +46,7 @@ CCC 
CCC

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC

      OPEN(IR,FILE='DEDFB',STATUS='OLD')

      OPEN(IR,FILE='../../test_data/cluster/DEDFB',STATUS='OLD')

      READ(IR,*)NSPH,IES

      IF(IES.NE.0)IES=1

      READ(IR,*)EXDC,WP,XIP,IDFC,NXI,INSTPC,INSN

src/sphere/edfb.f

+2 −2
Original line number Diff line number Diff line
@@ -46,7 +46,7 @@ CCC 
CCC

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC

      OPEN(IR,FILE='DEDFB',STATUS='OLD')

      OPEN(IR,FILE='../../test_data/sphere/DEDFB',STATUS='OLD')

      READ(IR,*)NSPH,IES

      IF(IES.NE.0)IES=1

      READ(IR,*)EXDC,WP,XIP,IDFC,NXI,INSTPC,INSN

src/sphere/sph.f

+2 −2
Original line number Diff line number Diff line
@@ -127,7 +127,7 @@ CCC AS A FUNCTION OF INCIDENCE ANGLES 
CCC              FOR A FIXED SCATTERING ANGLE THSCA=THS-TH;

CCC              NEEDS ONLY TH, PH, THS

CCC

      OPEN(IR,FILE='DSPH',STATUS='OLD')

      OPEN(IR,FILE='../../test_data/sphere/DSPH',STATUS='OLD')

      READ(IR,*)NSPH,LM,INPOL,NPNT,NPNTTS,ISAM

      READ(IR,*)TH,THSTP,THLST,THS,THSSTP,THSLST

      READ(IR,*)PH,PHSTP,PHLST,PHS,PHSSTP,PHSLST

src/trapping/frfme.f

+2 −2
Original line number Diff line number Diff line
@@ -30,7 +30,7 @@ CCC 1WK(NLMMT),W(NKV,NKV),WSUM(NLMMT,NRVC) 
      ITT1=11

      ITT2=12

      CC0=(0.0D0,0.0D0)

      OPEN(IR,FILE='DFRFME',STATUS='OLD')

      OPEN(IR,FILE='../../test_data/trapping/DFRFME',STATUS='OLD')

      READ(IR,*)JLMF,JLML

      IF(JLMF.EQ.1)GO TO 16

      CLOSE(IR)