From f007799006d435d710c0dda17c3dac607154c988 Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Thu, 20 Jun 2024 17:46:49 +0200
Subject: [PATCH] white space corrections
---
original/EELS2/boson.for | 2 +-
original/EELS2/eels.for | 17 ++++++++---------
2 files changed, 9 insertions(+), 10 deletions(-)
diff --git a/original/EELS2/boson.for b/original/EELS2/boson.for
index c67e250..861f247 100644
--- a/original/EELS2/boson.for
+++ b/original/EELS2/boson.for
@@ -695,4 +695,4 @@ C ABTI1519
16 WRITE(6,17) H ABTI1550
17 FORMAT(' *** NEGATIVE STEP SIZE IN <RCFFI>, H =',E13.5,' ***') ABTI1551
STOP ABTI1552
- END ABTI1553
\ No newline at end of file
+ END ABTI1553
diff --git a/original/EELS2/eels.for b/original/EELS2/eels.for
index 0ccb844..f24b44c 100644
--- a/original/EELS2/eels.for
+++ b/original/EELS2/eels.for
@@ -189,7 +189,7 @@ C ABTI0209
IF(.NOT.USER) CALL SETEPS(NEPS,NOS,OSC,JOS,EPSINF,WN) ABTI0218
X = WN/(2.0D0*ENER*PSIA) ABTI0219
IF(RATION) THEN ABTI0220
- F = QRAT(X)*AIMAG(-2.0/(1.0+EPS(1))) ABTI0221
+ F = QRAT(X)*AIMAG(-2.0/(1.0+EPS(1))) ABTI0221
ELSE ABTI0222
CALL QUEELS(X,F,AERR,RERR,FACRU) ABTI0223
ENDIF ABTI0224
@@ -511,7 +511,7 @@ C ****************************************************************** ABTI0521
IF(NEPS.EQ.LAYERS+1) THEN ABTI0540
C THE SUBSTRATE IS A ANISOTROPIC UNIAXIAL MATERIAL ABTI0541
EPS(LAYERS) = SQRT(EPS(LAYERS)*EPS(LAYERS+1)) ABTI0542
- IF(AIMAG(EPS(LAYERS)).LT.0.0) EPS(LAYERS) = -EPS(LAYERS) ABTI0543
+ IF(AIMAG(EPS(LAYERS)).LT.0.0) EPS(LAYERS) = -EPS(LAYERS) ABTI0543
ENDIF ABTI0544
RETURN ABTI0545
END ABTI0546
@@ -709,11 +709,11 @@ C * * ABTI0737
C ****************************************************************** ABTI0738
PARAMETER(LMAX=100) ABTI0739
LOGICAL STATIC,ZERO ABTI0740
- DOUBLE PRECISION ARG,ARGMIN,ARGMAX,CN,CNM1,D,DK,EPSMAC,SN,SNM1,T ABTI0741
+ DOUBLE PRECISION ARG,ARGMIN,ARGMAX,CN,CNM1,D,DK,EPSMAC,SN,SNM1,TN ABTI0741
COMPLEX A,B,CSI,EPS,PNM2,PNM1,PN,PP,QNM2,QNM1,QN,QP,Z ABTI0742
DIMENSION ARG(LMAX) ABTI0743
COMMON/MULAYR/EPS(LMAX),D(LMAX),ARGMIN,ARGMAX,EPSMAC,LAYERS,NPER ABTI0744
- ZERO(Z) = REAL(Z).EQ.0.0 .AND. AIMAG(Z).EQ.0.0 ABTI0745
+ ZERO(Z) = REAL(Z).EQ.0.0 .AND. AIMAG(Z).EQ.0.0 ABTI0745
LSTART = LAYERS-NPER+1 ABTI0746
STATIC = .TRUE. ABTI0747
N = 1 ABTI0748
@@ -776,8 +776,8 @@ C ABTI0799
6 CONTINUE ABTI0805
IF(ZERO(QN)) GOTO 12 ABTI0806
CSI = SQRT(PN/QN) ABTI0807
- IF(AIMAG(CSI).GT.0.0) GOTO 9 ABTI0808
- IF(AIMAG(CSI).LT.0.0) THEN ABTI0809
+ IF(AIMAG(CSI).GT.0.0) GOTO 9 ABTI0808
+ IF(AIMAG(CSI).LT.0.0) THEN ABTI0809
CSI = -CSI ABTI0810
ELSE ABTI0811
IF(REAL(QN).LT.0.0) CSI = -CSI ABTI0812
@@ -805,7 +805,7 @@ C ABTI0819
GOTO 17 ABTI0834
15 A = CSI+1.0 ABTI0835
IF(ZERO(A)) GOTO 16 ABTI0836
- SURLOS = AIMAG(-2.0/A) ABTI0837
+ SURLOS = AIMAG(-2.0/A) ABTI0837
GOTO 17 ABTI0838
16 SURLOS = 2.0D0/EPSMAC ABTI0839
17 RETURN ABTI0840
@@ -813,7 +813,7 @@ C ABTI0819
DOUBLE PRECISION FUNCTION USURLO(DQ,WN) ABTI0842
C ****************************************************************** ABTI0843
C * * ABTI0844
-C * USER-SUPPLIED DIELECTRIC SURFACE LOSS FUNCTION AIMAG(G(DQ,WN)) * ABTI0845
+C * USER-SUPPLIED DIELECTRIC SURFACE LOSS FUNCTION AIMAG(G(DQ,WN)) * ABTI0845
C * INPUT ARGUMENTS : * ABTI0846
C * DQ : MODULUS OF THE TWO-DIMENSIONAL SURFACE WAVE VECTOR * ABTI0847
C * (ANGSTROEM**-1) * ABTI0848
@@ -824,4 +824,3 @@ C ****************************************************************** ABTI0851
USURLO = 1.0D0 ABTI0853
RETURN ABTI0854
END ABTI0855
-
--
GitLab