11 Feb 2014 by alireza moghimi
PROGRAM VLMuse MSIMSLIMPLICIT NONEREAL*8,allocatable :: XB(:),A(:,:),BL(:),SOLV(:),PHI(:),PHIW(:),PHIOLD(:)REAL*8,allocatable :: CF(:)INTEGER :: I,J,NW,NB,ITREAL*8 :: UINF,ALPHA,PI,DT,CL,AINF,DX,TIME,T,T0,MACH,SUM1 OPEN (6,FILE="CLT.DAT") ...