Skip to content
Snippets Groups Projects
Commit 16ef7ed1 authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Upload quick test suite for TRAPPING

parent 611b2eff
No related branches found
No related tags found
No related merge requests found
Showing with 18600 additions and 6 deletions
1 0
1.765736D00 3.0D8 1.000000D00 0 1 0 3
785.0000000D-09
1
1 0.200000D-06
1.000000D00
(2.89D00, 0.03D00)
0
1 160 1 16
0 8 25 10 10 10 10 1.0d0 0 2 25 10 10 10 10 3.0d0
1.2d0 2.0d0 1.0d0 1.3d0 2.0d0 1.0d0
2.0d-05 0.15d0 2.3104d0 0.0d-06 0.1733d0 2.3104d0
e 1 e 1
0 0
\ No newline at end of file
1 2 0 149 300 0
0.00D01 0.00D01 8.90D01 0.00D00 0.00D01 1.00D01
0.00D01 0.00D01 4.90D01 0.00D00 0.00D00 1.00D01
1
0
\ No newline at end of file
JXI WLS WNS PUS EVS XIV
1 7.8500D-07 8.0041D+06 2.4012D+15 1.5805D+00 8.0041D+06
DIELECTRIC FUNCTIONS
SPHERE N. 1
NONTRANSITION LAYER N. 1, SCALE = WLS
1 2.8900D+00 3.0000D-02
FSHMX = -7.705737229958699E-006
FRSH = -3.000000000000000E-006
IF JLML < NLMMT, PRESERVE TEMPTAPE1, TEMPTAPE2, AND TFRFME,
AND RESTART LM RUN WITH JLMF = JLML+1
FRSH = 0.0000000000000000
READ(IR,*)NSPH,LM,INPOL,NPNT,NPNTTS,ISAM
1 2 0 149 300 0
READ(IR,*)TH,THSTP,THLST,THS,THSSTP,THSLST
0.000D+00 0.000D+00 8.900D+01 0.000D+00 0.000D+00 1.000D+01
READ(IR,*)PH,PHSTP,PHLST,PHS,PHSSTP,PHSLST
0.000D+00 0.000D+00 4.900D+01 0.000D+00 0.000D+00 1.000D+01
READ(IR,*)JWTM
1
READ(ITIN)NSPHT
READ(ITIN)(IOG(I),I=1,NSPH)
READ(ITIN)EXDC,WP,XIP,IDFC,NXI
READ(ITIN)(XIV(I),I=1,NXI)
READ(ITIN)NSHL(I),ROS(I)
READ(ITIN)(RCF(I,NS),NS=1,NSH)
REFR. INDEX OF EXTERNAL MEDIUM= 1.3288100D+00
LIN
========== JXI = 1 ====================
VK= 8.0040577D+06, XI= 8.0040577D+06
SPHERE 1
SIZE= 1.6008115D+00, REFRACTIVE INDEX= 1.7000229D+00 8.8234106D-03
----- SCS ----- ABS ----- EXS ----- ALBEDS --
7.2050597D-14 5.9852332D-15 7.8035830D-14 9.2330147D-01
---- SCS/GS -- ABS/GS -- EXS/GS ---
5.7336043D-01 4.7628972D-02 6.2098941D-01
FSAS= 1.6065129D-20 6.4776389D-21
QSCHU= 1.0965033D+00, PSCHU= 2.7194273D+00, S0MAG= 1.8784912D+00
COSAV= 6.7469268D-01, RAPRS= 2.9423820D-14
IPO= 1, TQEk= 0.0000000D+00, TQSk= 0.0000000D+00
IPO= 2, TQEk= 0.0000000D+00, TQSk= 0.0000000D+00
********** JTH = 1, JPH = 1, JTHS = 1, JPHS = 1 ********************
TIDG= 0.000D+00, PIDG= 0.000D+00, TSDG= 0.000D+00, PSDG= 0.000D+00
SCAND= 0.000D+00
CFMP= 1.0000000D+00, SFMP= 0.0000000D+00
CFSP= 1.0000000D+00, SFSP= 0.0000000D+00
UNI=(-0.00000D+00, 1.00000D+00, 0.00000D+00)
UNS=(-0.00000D+00, 1.00000D+00, 0.00000D+00)
SPHERE 1
SAS(1,1)= 1.6065129D-20 6.4776389D-21, SAS(2,1)= 0.0000000D+00 -0.0000000D+00
SAS(1,2)= 0.0000000D+00 -0.0000000D+00, SAS(2,2)= 1.6065129D-20 6.4776389D-21
Fx= 0.0000000D+00, Fy= 0.0000000D+00, Fz= 2.9423820D-14
MULS
3.1194076D-14 0.0000000D+00 -0.0000000D+00 -0.0000000D+00
0.0000000D+00 3.1194076D-14 0.0000000D+00 0.0000000D+00
-0.0000000D+00 0.0000000D+00 3.1194076D-14 0.0000000D+00
-0.0000000D+00 0.0000000D+00 0.0000000D+00 3.1194076D-14
MULSLR
3.1194076D-14 0.0000000D+00 -0.0000000D+00 -0.0000000D+00
0.0000000D+00 3.1194076D-14 -0.0000000D+00 -0.0000000D+00
-0.0000000D+00 -0.0000000D+00 3.1194076D-14 0.0000000D+00
-0.0000000D+00 -0.0000000D+00 0.0000000D+00 3.1194076D-14
File added
File added
File added
File added
File added
File added
File added
File added
This diff is collapsed.
This diff is collapsed.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment