From dd57cf70de3c6d7ec70ed653e37e39dcc630f668 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Mon, 8 Aug 2011 00:51:54 -0400 Subject: Small format fix --- fortran/navy_four_levels/FourLevelPulseProp_Double.f95 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'fortran/navy_four_levels') diff --git a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 index 600a6ab..f797d13 100644 --- a/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 +++ b/fortran/navy_four_levels/FourLevelPulseProp_Double.f95 @@ -47,7 +47,7 @@ program FourLevelPulseProp_v3_Double complex*16 k1,k2,k3,k4,k5,k6,k7,k8,k9,k10 complex*16 l1,l2,l3,l4,l5 - complex *16 Omold, Omold_vac + complex*16 Omold, Omold_vac real*8 alpha1,alpha2,alpha1tilde,alpha2tilde,alphac,alphactilde,beta,c,delmax,del1_prop,del2_prop,delc_prop real*8 dt,dz,eta real*8 W12,W21,W31,W32,W41,W42,W43,W34,ga12,ga13,ga14,ga23,ga24,ga34 -- cgit v1.2.3