!  g_parfil.mac
!   gets the name of the paramter file which has
!   the slip and current data
!
/com, g_parfil.mac  4/1/02  conversion for rev 6.0

_test=0
/nerr,0,1e4
/gopr
_arg1=
*ask,_arg1,Parameter File Name,_test
/out,g_parfil,out
/gopr
_error=0
 *get,_targ1,parm,_arg1,type
_arg2=1
*if,_targ1,ne,3,then
_error=1
/nerr,1,1e4
/out
  *msg,error
  No parameter file was specified > No action.
*endif

*if,_error,eq,0,then
/nerr,0,1e4
/out,_scratch
fini
/prep7
/inp,%_arg1%,des
/nerr,1,1e4
/out

*endif
/nerr,1,1e4