Is file "simulate.fcm" fortran source code?

[dow]

I found source code in file name "main.fcm".
It was wrote in 1993.
Anyone know about this please tell me at cx...@po.cwru.edu.

Thank for advance

Dow

For example
Simulate.fcm

subroutine simulate()

include 'include.h'
include 'plot.h'

character command*3, dvtarget*60
logical, array(nx,ny,nz) :: walls
real, array(o:14,nx,ny,nz) :: red, blue
CNF$ layout red(:serial,,,), blue(:serial,,,)

ntimes=1
do i=0,14
red(i,:,:,:)=0.
blue(i,:,:,:)=0.
end do

call CMF_randomize(4321)

do
write(6,'(" command >> ",$)')
read(5,'(a3)')command
end do

return

end