comenv.f - missing declaration of LAMBDA as REAL*8 caused NaNs for co…

…mmon envelope - fixed
nbody6ppgpu · Jul 12, 2023 · 14838eb · 14838eb
1 parent a9610b8
commit 14838eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Main/comenv.f b/src/Main/comenv.f
@@ -31,7 +31,7 @@ SUBROUTINE COMENV(M01,M1,MC1,AJ1,JSPIN1,KW1,
       common/bse/lambd1,alphac,bhspinfl,kicktype,xk2,xk3,
      *      acc1,acc2,xbeta,xxi,epsnov,eddfac,gamm1
 *
-      REAL*8 AURSUN,K3
+      REAL*8 AURSUN,K3,LAMBDA,ALPHA1
       PARAMETER (AURSUN = 214.95D0)
       LOGICAL COEL,ECCFLG
       REAL*8 CELAMF,RL,RZAMSF