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

Make FORTRAN applications look for input data in current working directory

parent 644187e3

src/cluster/clu.f

+1 −1
Original line number Original line 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              FOR A FIXED SCATTERING ANGLE THSCA=THS-TH;

CCC              NEEDS ONLY TH, PH, THS

CCC              NEEDS ONLY TH, PH, THS

CCC

CCC

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

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

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

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

      DO 101 I=1,NSPH

      DO 101 I=1,NSPH

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

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

src/cluster/edfb_clu.f

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

CCC

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC

CCC

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

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

      READ(IR,*)NSPH,IES

      READ(IR,*)NSPH,IES

      IF(IES.NE.0)IES=1

      IF(IES.NE.0)IES=1

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

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

src/inclusion/edfb_inclu.f

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

CCC

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC

CCC

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

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

      READ(IR,*)NSPH,IES

      READ(IR,*)NSPH,IES

      IF(IES.NE.0)IES=1

      IF(IES.NE.0)IES=1

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

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

src/inclusion/inclu.f

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

CCC              FOR A FIXED SCATTERING ANGLE THSCA=THS-TH;

CCC              NEEDS ONLY TH, PH, THS

CCC              NEEDS ONLY TH, PH, THS

CCC

CCC

      OPEN(IR,FILE='../../test_data/inclusion/DINCLU',STATUS='OLD')

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

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

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

      DO 101 I=1,NSPH

      DO 101 I=1,NSPH

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

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

src/sphere/edfb_sph.f

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

CCC

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC   READING OF DIELECTRIC FUNCTIONS DRIVEN BY ICI DEFINED BELOW

CCC

CCC

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

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

      READ(IR,*)NSPH,IES

      READ(IR,*)NSPH,IES

      IF(IES.NE.0)IES=1

      IF(IES.NE.0)IES=1

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

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