Commit ef9a5f8a authored by Stefan's avatar Stefan
Browse files

add usrdat0

parent ccd0880a
......@@ -52,6 +52,8 @@ C Read Mesh Info
ifre2 = .false.
if (nelgs.lt.0) ifre2 = .true.
call usrdat0
if (nelgt.gt.350000 .and. .not.ifre2)
$ call exitti('Problem size requires .re2!$',1)
......
......@@ -81,6 +81,17 @@ c automatically added by makenek
_ACEOF
fi
if ! cat $CASENAME.f | grep -qi "subroutine.*usrdat0" ; then
cat >> $CASENAME.f << _ACEOF
c automatically added by makenek
subroutine usrdat0()
return
end
_ACEOF
fi
if ! cat $CASENAME.f | grep -qi "subroutine.*usrdat" ; then
cat >> $CASENAME.f << _ACEOF
......
......@@ -18,6 +18,8 @@ c
if(ierr .ne. 0) call exitt
call bcastParam
call usrdat0
call read_re2_hdr(ifbswap)
call chkParam
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment