You might have some illegal characters in your file, which posting on the forum has cleaned out.
The following code has cleaned out some minor errors
module var_dec
!implicit real*8 (a-h,o-z)
!$$ implicit none would be an aim, but not for 3,000 lines
!CATAGORY 10: Variables for input and output files
character*30 :: cf55,cf56,cf57,cf58,cf59
!CONSTANT DECLARATION
!$$ declare the type of variables
real*8 PI, G
integer*4 NELI, NELJ, KBA, KBB, KBC, KBD
parameter (PI=3.14159265358979323846d0, G=9.81)
parameter (NELI=2500, NELJ=15, KBA=300, KBB=300, KBC=300, KBD=10)
!VARIABLE DECLARATION
!CATAGORY 1: GENERAL
integer :: manaly,mcont,mrot,mom,nea,neb,mst,kkstart,kkend ! , &
!$$ there appears to be a line missing after the previous line
!CATAGORY 2: DIMENSION AND MATERIAL OF SPECIMEN
real*8, dimension(3) :: dom_max,dom_min,cg_old,drift
!CATAGORY 3: PARTICLE's VARIABLES
real*8, dimension(NELI,3) :: c_cord,w,v,vw,du,dw,fxyz,fm,pin
!CATAGORY 4: BLOCK
integer, dimension(KBA,KBB,KBC,KBD) :: kb
!.....
!...
End Module