fl_open Subroutine

public subroutine fl_open(nfl, nsts)

opens file pclfil and assigns to nsts and opens file anfil and assigns to nfl pclfil and anfil is set in readparam

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	nfl
integer,	intent(out)			::	nsts

Common Blocks

record_nodes (subroutine)
read_param (subroutine)
"> common /filnm/

Type	Attributes		Name		Initial
character(len=256)		::	anfil
character(len=256)		::	anstfil
character(len=256)		::	finfil
character(len=256)		::	nodesfil
character(len=256)		::	pclfil
character(len=256)		::	sucfil

common /nfinish/

Type	Attributes		Name		Initial
integer		::	nfinish

sim3d (program)
sim3d_em (program)
shockfront (program)
"> common /rankstr/

Type	Attributes		Name		Initial
character(len=2)		::	rankstr