From b3028d14bd961c4b6cdd833779026a891fc7992c Mon Sep 17 00:00:00 2001
From: Giovanni La Mura <giovanni.lamura@inaf.it>
Date: Tue, 5 Sep 2023 16:39:39 +0200
Subject: [PATCH] Use test_data folder as input for source files
---
src/cluster/clu.f | 4 ++--
src/cluster/edfb.f | 4 ++--
src/sphere/edfb.f | 4 ++--
src/sphere/sph.f | 4 ++--
src/trapping/frfme.f | 4 ++--
src/trapping/lffft.f | 4 ++--
6 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/src/cluster/clu.f b/src/cluster/clu.f
index 8f1c2172..1aecb479 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 e54ab746..765ceeb3 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 e54ab746..8590188d 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 f7aafd52..5eb62c2f 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 3c368a4a..caee1f41 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 a805621c..521c61e8 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
--
GitLab