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

Fix wavelength calculation in FORTRAN implementation of INCLU

parent e1f7a20f

src/inclusion/inclu.f

+1 −1
Original line number Diff line number Diff line
@@ -427,7 +427,7 @@ C 
  208 WRITE(IW,6100)

      WRITE(IW,6150)SCASM,ABSSM,EXTSM,ALBDM

      open(31,FILE='scasecm')

      alamb=3.141592653589793238/VK

      alamb=2.0*3.141592653589793238/VK

      write(31,9999)IPOL,alamb,SCASM,ABSSM,EXTSM

 9999 format(I5,4E15.7)

      WRITE(IW,6200)