diff --git a/src/cluster/clu.f b/src/cluster/clu.f index 8f1c2172f1534fff341322d0ab075e8689e61c74..1aecb479acc0cbfdf4c94c9973ec70b1639f357d 100644 --- a/src/cluster/clu.f +++ b/src/cluster/clu.f @@ -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) @@ -3466,4 +3466,4 @@ CCC DIMENSION AV(NDDMST*NDDMST) 3 CDTP=CDTP+AV((J-1)*ISTEP+I)*AV(J+IR) RETURN END -CCC \ No newline at end of file +CCC diff --git a/src/cluster/edfb.f b/src/cluster/edfb.f index e54ab7462955ef05e63f11669a2357ca7edffec2..765ceeb38ed265eb138e4384d12248d35448a877 100644 --- a/src/cluster/edfb.f +++ b/src/cluster/edfb.f @@ -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 @@ -333,4 +333,4 @@ CCC VLST=V+(NXI-1)*VSTP 6612 FORMAT(I5,1PD13.4) RETURN END -CCC \ No newline at end of file +CCC diff --git a/src/sphere/edfb.f b/src/sphere/edfb.f index e54ab7462955ef05e63f11669a2357ca7edffec2..8590188db6aef5dca515b8e0850bc290354fbba8 100644 --- a/src/sphere/edfb.f +++ b/src/sphere/edfb.f @@ -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 @@ -333,4 +333,4 @@ CCC VLST=V+(NXI-1)*VSTP 6612 FORMAT(I5,1PD13.4) RETURN END -CCC \ No newline at end of file +CCC diff --git a/src/sphere/sph.f b/src/sphere/sph.f index f7aafd525b4d3ed005eeb5ad52428e2eeea05965..5eb62c2fa02e53689cd6a79063d48c98c026a1de 100644 --- a/src/sphere/sph.f +++ b/src/sphere/sph.f @@ -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 @@ -1490,4 +1490,4 @@ CCC LL=LM L=L+1 GO TO 40 END -CCC \ No newline at end of file +CCC diff --git a/src/trapping/frfme.f b/src/trapping/frfme.f index 3c368a4a4cfa960d3f31eeb88d0adc5b113a85b9..caee1f4136541bd4da09487f2399c6e4cce6abdb 100644 --- a/src/trapping/frfme.f +++ b/src/trapping/frfme.f @@ -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) @@ -493,4 +493,4 @@ CCC DIMENSION W(NLWMT,2),YLM(NLWM+2) 30 W(I,2)=-UIM*W(K,1) RETURN END -CCC \ No newline at end of file +CCC diff --git a/src/trapping/lffft.f b/src/trapping/lffft.f index a805621c4c21acb24744b6f03b295f846986fe4b..521c61e8771fdc0a800e8135bbb558ee8614753a 100644 --- a/src/trapping/lffft.f +++ b/src/trapping/lffft.f @@ -33,7 +33,7 @@ CCC DIMENSION TMS(LE,3) COMPLEX*16 CC0,UIM,SQ2ITI IR=5 IT=7 - OPEN(IR,FILE='DLFFFT',STATUS='OLD') + OPEN(IR,FILE='../../test_data/trapping/DLFFFT',STATUS='OLD') READ(IR,*)JFT,JSS,JTW CLOSE(IR) OPEN(IT,FILE='TTMS',FORM='UNFORMATTED',STATUS='OLD') @@ -491,4 +491,4 @@ CCC DIMENSION AC(NLEMT),WS(NLEMT) FFTS(3)=-DREAL(CTQCS(2)) RETURN END -CCC \ No newline at end of file +CCC