#! /bin/sh

#set -x

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# 

#  FatigueSubmit   

# 

#

#

# Abstract:

#    This procedure executes a MSC/FATIGUE analysis by running the the

#    MSC/FATIGUE translator and solver in the proper order.  This

#    procedure is called from within MSC/PATRAN when the user submits a job

#    for analysis.

#

# 

#  Arguments:

#

#    -j jobname         Analysis job name

#

#    -a iat             The analysis type:     1 = crack initiation 

#                                              2 = spot weld

#                                              3 = crack growth

#                                              4 = nominal stress

#                                              44 = rotational analysis

#                                              5 = vibration fatigue

#                                              6 = Mag Weld

#                                              7 = Multiaxial CI

#                                              8 = Multiaxial FOS 

#

#    -p partial         Partial Analysis Flag: 0 = full analysis

#                                              1 = pre-processor only

#

#    -y plane           Plane_stress:          0 = none 

#                                              1 = plane stress correction

#

#    -f fos_opt         Safety factor option:  0 = none

#                                              1 = stress based

#                                              2 = life based

#

#    -s str_life        Stress reference or design life (actual value)

#

#    -m max_fac         Maximum factor to calculate (actual value)

#

#    -c cut_off         Use material cutoff:   0 = use cuttoff

#                                              1 = don’t use cutoff

#   

#    -z fast            Fast analysis option:  0 = none

#                                              1 = gate

#                                              2 = points

#                                              3 = reduction

#

#    -g pvx_gate        Percentage gate to use in PV eXtraction for quick analysis

#                       or the number of points or reduction factor

#

#    -n num_ents        Number of entities to keep for fast analysis

#

#    -t temp_dpnd       Use temp dependent mats:    0 = no (default)

#                                                   1 = yes

#

#    -b mmean_mats      Use multi-mean correction:  0 = no (default)

#                                                   1 = yes

#

#    -d spect_lod       Use spectrum loading input: 0 = no (default)

#                                                   1 = yes

#

#    -e seamw_2004      Use seamw2004 solver:       0 = no (default)

#                                                   1 = yes

#   

# 

#  Modification History:

#     11/24/93 Initial Release

#     11/26/94 Update for 1.4

#     09/12/95 Update for 6.0

#     10/22/01 Update Multiaxial (ljd)

#     12/13/01 Fix femlf submit error (dt1)

#     

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# DEFINE A LOCAL SHELL FUNCTION FOR DISPLAYING VALID PARAMS FOR THIS SCRIPT

abort_usage( ) {

   cat 2>&1 <</

Usage:  $Cmd -j jobname -a iat -p partial [optional flags] 

    flags:  -v             for verbose output

	    -j jobname     to specify a jobname (required)

	    -a iat         to specify analysis type: 

                              1 = crack initiation (default) 

                              2 = spot weld

                              3 = crack growth

                              4 = total life

                              44 = rotation 

                              5 = vibration fatigue

                              6 = Mag Weld

                              7 = MultiCI

                              8 = MultiFOS

	    -p partial     to specify full or partial analysis:

                              0 = full analysis (default)

                              1 = partial analysis (stops after rainflow)

	    -y plane       to specify plane_stress correction:

                              0 = no (default  (for crack

                              1 = yes           growth only)

	-f fos_opt     to specify factor of safety option: 

                              0 = none (default)

                              1 = stress based

                              2 = life based

            -s str_life    to specify reference stress or design life

                              (this is a factor of safety parameter)

            -m max_fac     to specify maximum stress factor

            -c cut_off     to specify material cutoff usage:

                              0 = use cutoff (default)(used for factor

                              1 = don’t use cutoff     of safety only)

            -z fast        to specify fast analysis using PV eXtraction

                              0 = none (default      (Not valid for 

                              1 = percentage gate     crack growth or

                              2 = number of points    rainflow matrices )

                              3 = reduction factor

            -g pvx_gate    to specify actual percentage gate for PV eXtraction

                           or number of points or reduction factor

            -n num_ents    to specify number of FE entities for keep for

                           fast analysis

            -t temp_dpnd   Use temp dependent mats:

                              0 = no (default)

                              1 = yes

            -b mmean_mats  Use multi-mean correction: 

                              0 = no (default)

                              1 = yes

            -d spect_lod   Use spectrum loading input:

                              0 = no (default)

                              1 = yes

            -e seamw_2004  Use seamw2004 solver:

                              0 = no (default)

                              1 = yes

/

   exit 1

}

# DEFINE A LOCAL SHELL FUNCTION FOR CHECKING STATUS

check_status( ) {

   if [ -f $jobname.abo ] ; then

      rm -f $Semaphore

      rm -f $jobname.abo

      echo "Abort detected ... aborting $Cmd"

      exit 2

   fi

   if [ "$1" -ne 0 ] ; then

#     trap "No damaging nodes" as a non-error

      code=0

      code=‘tail -5 $jobname.msg|grep -c "No damaging nodes"‘

      if [code -ne 1] ; then

         rm -f $Semaphore

         echo "Error detected ... code is <$1> ... aborting $Cmd"

         exit 2

      fi

   fi

}

# DEFINE A LOCAL SHELL FUNCTION FOR DOING A GENERAL-PURPOSE EXIT 

exit_normal() {

   rm -f $Semaphore

   rm -f $jobname.rmn

   echo "$Cmd complete"

   exit 0

}

# DETERMINE THE COMMAND NAME OF THIS SCRIPT

Cmd=‘echo $0 | sed ’s;^.*/;;’‘

# SET UP PROPER PATHS TO THE EXECUTABLES

if [ -z "$p3fpath" ] ; then

   if [ -z "$P3_HOME" ] ; then

      ExecDir=/msc/patran75/mscfatigue_files/bin 

      FatDir=/msc/patran75/mscfatigue_files

   else

      ExecDir=$P3_HOME/mscfatigue_files/bin

      FatDir=$P3_HOME/mscfatigue_files

   fi 

else

   ExecDir=$p3fpath/bin

   FatDir=$p3fpath

fi 

if [ -z "$npath" ] ; then

   NpathDir=$ExecDir

else

   NpathDir=$npath/nsoft

fi

# set nCode environment variables

if [ -z "$SHLIB_PATH" ] ; then

   SHLIB_PATH=$P3_HOME/mscfatigue_files/bin ; export SHLIB_PATH

else

   SHLIB_PATH=$P3_HOME/mscfatigue_files/bin:$SHLIB_PATH ; export SHLIB_PATH

fi

# ASSIGN THE DEFAULT ARGUMENT PARAMETER VALUES

jobname=’’

Verbose=’’

iat=1

partial=0

plane=0

fos_opt=0

str_life=0

max_fac=100

cut_off=0

fast=0

pvx_gate=0

num_ents=0

temp_dpnd=0

mmean_mats=0

spect_lod=0

seamw_2004=0

Status=0

# PARSE THROUGH THE INPUT ARGUMENTS

while [ $# -ne 0 ] ; do

   case "$1" in

      -v) Verbose=yes    ; shift   ;;

      -j) jobname=$2     ; shift 2 ;;

      -a) iat=$2         ; shift 2 ;;

      -p) partial=$2     ; shift 2 ;;

      -y) plane=$2       ; shift 2 ;;

      -f) fos_opt=$2     ; shift 2 ;;

      -s) str_life=$2    ; shift 2 ;;

      -m) max_fac=$2     ; shift 2 ;;

      -c) cut_off=$2     ; shift 2 ;;

      -z) fast=$2        ; shift 2 ;;

      -g) pvx_gate=$2    ; shift 2 ;;

      -n) num_ents=$2    ; shift 2 ;;

      -t) temp_dpnd=$2   ; shift 2 ;;

      -b) mmean_mats=$2  ; shift 2 ;;

      -d) spect_lod=$2   ; shift 2 ;;

      -e) seamw_2004=$2  ; shift 2 ;;

      -*) abort_usage           ;;

   esac

done

# MAKE CERTAIN THAT A JOBNAME PARAMETER WAS SPECIFIED

if [ -z "$jobname" ] ; then

   abort_usage

fi

# MAKE CERTAIN THAT AN ANALYSIS TYPE WAS SPECIFIED

if [ -z "$iat" ] ; then

   abort_usage

fi

# DISPLAY VERBOSE INFORMATION DESCRIBING PARAMETERS IF REQUESTED TO DO SO

if [ ! -z "$Verbose" ] ; then

   cat <</

$Cmd parameters ...

   Jobname              = $jobname

   Analysis Type        = $iat

   Full(0)/Partial(1)   = $partial

   Plane Stress         = $plane

   Factor of Safety     = $fos_opt

   Ref. Stress/Life     = $str_life

   Use Cutoff           = $cut_off

   Fast Analysis        = $fast

   PVX % Gate           = $pvx_gate

   Num. FE Entities     = $num_ents

   Temperature dependent= $temp_dpnd

   Multi-mean correction= $mmean_mats

   Spectrum Load Input  = $spect_lod

   Use Seamw2004        = $seamw_2004

/

fi

# DELETE ANY OLD FILES OF THE SAME JOBNAME

rm -f $jobname.fpp

rm -f $jobname.fos

rm -f $jobname.fef

rm -f $jobname.fdf

rm -f $jobname.tcy

rm -f $jobname.crg

rm -f $jobname.rmn

rm -f $jobname.fos_tmpl

rm -f $jobname.fef_tmpl

rm -f $jobname.fdf_tmpl

# ASSERT THE SEMAPHORE FOR THIS JOB TO LET THE WORLD KNOW THAT WE’RE BUSY

Semaphore=$jobname.sta

StatusFile=$jobname.sta

echo "Job has begun execution" >$Semaphore

# ALSO SEND ALL LICENSE MESSAGES TO A LOG FILE

LogFile=$jobname.log

date >$LogFile

# DEFINE SOME USEFUL GLOBAL VARIABLES

PCRACK=$ExecDir/pcrack

PFPOST=$ExecDir/pfpost

FEFAT=$ExecDir/fefat

FATFE=$ExecDir/mfatfe

FEROT=$ExecDir/ferot

FEVIB=$ExecDir/fevib

FASTAN=$ExecDir/fastan

SPOTW=$ExecDir/spotw

SEAMW=$ExecDir/seamw

MULTI=$ExecDir/femlf

EntFile=’pfatigue.ents’

rm -f $EntFile

rm -f fastan.msg

# FUNCTION TO PERFORM THE ANALYSIS

SubmitAnalysis()

{

   Semaphore=$jobname.fpr

   echo "Executing MSC/FATIGUE job \"$jobname\"" >$Semaphore

 # DO THE CRACK GROWTH ANALYSIS:

   if [ $iat = 3 ] ; then

       # PRE-PROCESS CRACK GROWTH:

       $PCRACK /mscopt=p/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

       check_status $?

       if [ $partial = 0 ] ; then

          # DO THE FULL ANALYSIS:

          if [ -f $jobname.tcy ] ; then

             if [ $plane = 1 ] ; then

                # PLANE STRESS CORRECTION:

			 $PCRACK /mscopt=a/INP=$jobname/PLANE=Y \

				/OV=Y/\*=$jobname.msg >>$LogFile

                check_status $?

             else

                # NO PLANE STRESS CORRECTION:

                $PCRACK /mscopt=a/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

                check_status $?

             fi

          else

             check_status 1

          fi

       fi

   fi

 # DO THE SPOT WELD ANALYSIS:

   if [ $iat = 2 ] ; then

      if [ -f $jobname.fes ] ; then

         $SPOTW  /OPT=e/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

         check_status $?

      else

         check_status 1

      fi

   fi

# DO THE MAG WELD ANALYSIS:

   if [ $iat = 6 ] ; then

      if [ $seamw_2004 = 1 ] ; then

          if [ -f $jobname.fes ] ; then

             $SEAMW  /OPT=e/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

             check_status $?

          else

             check_status 1

          fi

      else

          $FATFE  /job=$jobname/ana=y/OV=Y/\*=$jobname.msg >>$LogFile

# Until fatfe solver writes status, use manual job-end message

          echo "Job execution has ended" >$StatusFile

          check_status $?

      fi

   fi

 # CHECK FOR A pfatigue.ent FILE

   if [ -f $EntFile ] ; then

      location=@$EntFile

   else

      location=all

   fi

 # DO THE ROTATION ANALYSIS:

   if [ $iat = 44 ] ; then

         if [ $partial = 0 ] ; then

            # DO FULL ANALYSIS

            if [ -f $jobname.fes ] ; then

               $FEROT  /OPT=a/INP=$jobname/OV=Y/OPT=X/\*=$jobname.msg >>$LogFile

               check_status $?

            else

               check_status 1

            fi

         fi

   fi

 # DO THE CRACK INITATION OR TOTAL LIFE ANALYSIS:

   if [ $iat = 1 -o $iat = 4 ] ; then

      # DO THE FAST ANALYSIS IF REQUESTED

      if [ $fast != 0 ] ; then

         if [ $fast = 1 ] ; then

              type=GATE

         fi

         if [ $fast = 2 ] ; then

              type=LEN

         fi

         if [ $fast = 3 ] ; then

              type=REDUCT

         fi

         $FASTAN /JOB=$jobname/METHOD=$fast/$type=$pvx_gate \

			/ENTS=$num_ents/\*=$jobname.msg >>$LogFile

         cat fastan.msg >>$jobname.msg

         rm -f fastan.msg

      else

         if [ $temp_dpnd = 1 -o $mmean_mats = 1 -o $spect_lod = 1 ] ; then

             # DO FULL ANALYSIS

             $FATFE  /job=$jobname/opt=p/popt=a/dobax=n \

				/ov=y/opt=a/ana=y/\*=$jobname.msg >>$LogFile

             echo "Job execution has ended" >$StatusFile

             check_status $?

         else

             # PRE-PROCESS FIRST:

             $FEFAT /OPT=p/INP=$jobname/LOC=$location \

			/OV=Y/ANAL=NO/\*=$jobname.msg >>$LogFile

             check_status $?

             if [ $partial = 0 ] ; then

                # DO FULL ANALYSIS

                if [ -f $jobname.fpp ] ; then

                   $FEFAT  /OPT=f/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

                   check_status $?

                else

                   check_status 1

                fi

             fi

         fi

      fi

   fi

 # DO THE FACTOR OF SAFETY ANALYSIS:

   if [ $fos_opt != 0 ] ; then

      if [ $temp_dpnd = 1 -o $mmean_mats = 1 -o $spect_lod = 1 ] ; then

         if [ $partial = 0 ] ; then

            # DO ONLY IF FULL ANALYSIS REQUESTED:

            if [ -f $jobname.fpp ] ; then

               echo "FOS calculation has started" >$StatusFile

               if [ $fos_opt = 1 ] ; then

                  # REFERENCE STRESS BASED FACTOR OF SAFETY:

                  $FATFE  /job=$jobname/opt=p/popt=a/dobax=n \

			/ov=y/opt=a/saf=S/dlif=$str_life/\*=$jobname.msg >>$LogFile

                  echo "FOS calculation has ended" >$StatusFile

                  check_status $?

               elif [ $fos_opt = 2 ] ; then

                  if [ $cut_off = 0 ] ; then

                     # DESIGN LIFE BASED FACTOR OF SAFETY W/ CUTOFF:

                     $FATFE/job=$jobname/opt=p/popt=a/dobax=n \

			/MAXFAC=$max_fac/USECUT=Y/ov=y \

			/opt=a/saf=L/dlif=$str_life/\*=$jobname.msg >>$LogFile

                     echo "FOS calculation has ended" >$StatusFile

                     check_status $?

                  else

                     # DESIGN LIFE BASED FACTOR OF SAFETY W/O CUTOFF:

                     $FATFE /job=$jobname/opt=p/popt=a/dobax=n \

				/MAXFAC=$max_fac/USECUT=N/ov=y/opt=a/saf=L \

				/dlif=$str_life/\*=$jobname.msg >>$LogFile

                     echo "FOS calculation has ended" >$StatusFile

                     check_status $?

                  fi

               else

                  check_status 1

               fi

            fi

         fi

      else

         if [ $partial = 0 ] ; then

            # DO ONLY IF FULL ANALYSIS REQUESTED:

            if [ -f $jobname.fpp ] ; then

               if [ $fos_opt = 1 ] ; then

                  # REFERENCE STRESS BASED FACTOR OF SAFETY:

                  $FEFAT /OPT=s/INP=$jobname/ANAL=S/STRESS=$str_life \

				/OV=Y \/*=$jobname.msg >>$LogFile

                  check_status $?

               elif [ $fos_opt = 2 ] ; then

                  if [ $cut_off = 0 ] ; then

                     # DESIGN LIFE BASED FACTOR OF SAFETY W/ CUTOFF:

                     $FEFAT /OPT=s/INP=$jobname/ANAL=L/LIFE=$str_life/OV=Y \

				/MAXFAC=$max_fac/USECUT=Y/\*=$jobname.msg >>$LogFile

                     check_status $?

                  else

                     # DESIGN LIFE BASED FACTOR OF SAFETY W/O CUTOFF:

                     $FEFAT /OPT=s/INP=$jobname/ANAL=L/LIFE=$str_life \

				/OV=Y/MAXFAC=$max_fac/USECUT=N/\*=$jobname.msg >>$LogFile

                     check_status $?

                  fi

               else

                  check_status 1

               fi

            fi

         fi

      fi

   fi

 # DO THE VIBRATION FATIGUE ANALYSIS:

   if [ $iat = 5 ] ; then

            # DO FULL ANALYSIS

            if [ -f $jobname.fes ] ; then

               $FEVIB  /OPT=G/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

               check_status $?

            else

               check_status 1

            fi

   fi

# DO THE MULTIAXIAL CI ANALYSIS:

   if [ $iat = 7 ] ; then

      if [ -f $jobname.fes ] ; then

#        $MULTI  /OPT=c/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile       # dt1

         $MULTI  /OPT=c/INP=$jobname/JOB=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

         check_status $?

      else

         check_status 1

      fi

   fi

# DO THE MULTIAXIAL FOS ANALYSIS:

   if [ $iat = 8 ] ; then

      if [ -f $jobname.fes ] ; then

#        $MULTI  /OPT=S/INP=$jobname/OV=Y/\*=$jobname.msg >>$LogFile       # dt1

         $MULTI  /OPT=S/INP=$jobname/JOB=$jobname/OV=Y/\*=$jobname.msg >>$LogFile

         check_status $?

      else

         check_status 1

      fi

   fi

}

eval SubmitAnalysis 

# SUCCESSFUL EXIT OF SCRIPT

exit_normal

#! /bin/sh

#set -x

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# 

#  FatigueExecute

# 

#

# Abstract:

#    Script to submit MSC/FATIGUE to a local or remote host via the

#    ANALYSIS MANAGER.  This script will call FatigueSubmit on the 

#    appropriate host.  All FatigueSubmit parameters are obtained from

#    the jobname.job file.

#

#    The current version does not move files from submit node to analysis node.

#    This version handles file conversion & launching of FatigueSubmit.

#

#  Limitations:

#

#  Arguments:

#

#    -j jobname         Analysis job name

#

#    -h remhost         The of the submitting host (where the job originated).

#

#    -d remdir          The directory on the remote host where the job originated.

#

#  Modification History:

#     08/30/04 Initial Release

#

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# DEFINE A FUNCTION FOR DISPLAYING VALID PARAMS FOR THIS SCRIPT

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

abort_usage( ) {

   cat 2>&1 <</

Usage:  $Cmd -j jobname -h remhost -d remdir

    flags:   -v             for verbose output

             -j jobname     to specify a jobname (required) 

             -h remhost     to specify the remote hostname (required)

             -d remdir      to specify the remote directory (required)

             -e exename     to specify a solution type (optional) 

/

   exit 1

}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# DEFINE A FUNCTION FOR CHECKING STATUS

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

check_status( ) {

   Status=$1

   if [ "$1" -ne 0 ] ; then

      echo "Error detected ... aborting $Cmd"

      exit 2

   fi

}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# DEFINE A FUNCTION FOR DOING A GENERAL PURPOSE EXIT 

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

exit_normal( ) {

   rm -f $jobname.fpr

   echo "$Cmd complete"

   exit 0

}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# DETERMINE THE COMMAND NAME OF THIS SCRIPT

Cmd=‘echo $0 | sed ’s;^.*/;;’‘

# SET UP PROPER PATHS TO THE EXECUTABLES

if [ -z "$P3_HOME" ] ; then

    echo "No path to fatigue executables"

    check_status -1

else

    ExecDir=$P3_HOME/bin

fi 

# ASSIGN THE DEFAULT ARGUMENT PARAMETER VALUES

jobname=’’

exename=’’

remhost=${MSCP_FATIGUE_HOST:-LOCAL}

remdir=${MSCP_FATIGUE_SCRATCHDIR:-.}

Status=0

# PARSE THROUGH THE INPUT ARGUMENTS

if [ $# -lt 2 ] ; then

  abort_usage

fi

while [ $# -ne 0 ] ; do

   case "$1" in

      -v) Verbose=yes  ; shift   ;;

      -j) jobname=$2   ; shift 2 ;;

      -h) remhost=$2   ; shift 2 ;;

      -d) remdir=$2    ; shift 2 ;;

      -e) exename=$2   ; shift 2 ;;

       *) abort_usage ;;

   esac

done

# MAKE CERTAIN THAT THERE IS A JOBNAME

if [ -z "$jobname" ] ; then

   abort_usage

fi

if [ -z "$FAT_COMMAND_STR" ] ; then

   echo "Env variables not being set from rcf file"

   check_status -1

fi

if [ -z "$FAT_SUBHOST_TYPE" ] ; then

   echo "Env variables not being set from rcf file"

   check_status -1

fi

exename=$FAT_EXE_NAME

if [ -z "$exename" ] ; then

   exename=FEFAT

fi

# DISPLAY VERBOSE INFORMATION DESCRIBING PARAMETERS IF REQUESTED TO DO SO

if [ ! -z "$Verbose" ] ; then

   cat <</

$Cmd parameters ...

   Exename              = $exename

   Jobname              = $jobname

   Remote Host          = $remhost

   Remote Directory     = $remdir

/

fi

# Determine type of analysis machine;

# only two choices since this script only on these machines.

OsName=‘uname‘

case "$OsName" in

   Linux)

      AnalysisHostType="LINUX"

      DestType=3

      ;;

   *)

      AnalysisHostType="UNIX"

      DestType=12

      ;;

esac

# Determine type of submit machine;

# env FAT_SUBHOST_TYPE is defined in rcf file & exported to this machine

case "$FAT_SUBHOST_TYPE" in

   WINNT)

      SubmitHostType="WINNT"

      SourceType=3

      ;;

   LINUX)

      SubmitHostType="LINUX"

      SourceType=3

      ;;

   *)

      SubmitHostType="UNIX"

      SourceType=12

      ;;

esac

LogFile=$jobname.log

date >$LogFile

CONFIL=$ExecDir/mconfil

FASTAN=$ExecDir/fastan

FATFE=$ExecDir/mfatfe

FEFAT=$ExecDir/fefat

FEROT=$ExecDir/ferot

FEVIB=$ExecDir/fevib

MULTI=$ExecDir/femlf

PCRACK=$ExecDir/pcrack

SEAMW=$ExecDir/seamw

SPOTW=$ExecDir/spotw

# convert ascii fes if needed

if [ "$AnalysisHostType" != "$SubmitHostType" ] ; then

    case "$exename" in

	FASTAN)

	if [ -f $jobname.asc ] ; then

	   $FASTAN /OPT=u/UOPT=b/INP=$jobname \

			/OUT=$jobname/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;

	MFATFE)

	if [ -f $jobname.asc ] ; then

	   $FATFE /OPT=u/UOPT=f/JOB=$jobname \

			/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;

	FEFAT)

	if [ -f $jobname.asc ] ; then

	   $FEFAT /OPT=u/UOPT=b/INP=$jobname \

			/OUT=$jobname/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;

	FEROT)

	if [ -f $jobname.asc ] ; then

	   $FEROT /OPT=u/UOPT=b/INP=$jobname/OUT=$jobname \

			/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;

	FEVIB)

	if [ -f $jobname.asc ] ; then

	   $FEVIB /OPT=u/UOPT=b/INP=$jobname/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;	

	FEMLF)

	if [ -f $jobname.asc ] ; then

	   $MULTI /OPT=u/UOPT=b/INP=$jobname/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;	

	PCRACK)

	if [ -f $jobname.asc ] ; then

	   $PCRACK /MSCOPT=u/UOPT=b/INP=$jobname/OUT=$jobname \

			/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;	

	SEAMW)

	if [ -f $jobname.asc ] ; then

	   $SEAMW /OPT=u/UOPT=b/INP=$jobname/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;

	SPOTW)

	if [ -f $jobname.asc ] ; then

	   $SPOTW /OPT=u/UOPT=b/INP=$jobname/OV=Y/\*=$jobname.msg  >>$jobname.log

	   check_status $? 

	fi

	;;

	*)

	abort_usage

	;;

    esac

fi

# DETERMINE NUMBER OF SUPPORTING FILES USED

numdac=0

numpsd=0

numcyh=0

numksn=0

numspe=0

numlcs=0

nummdb=0

numhtd=0

nummnd=0

numdac=‘ls *.dac | wc -l‘ > /dev/null 2>&1

numpsd=‘ls *.psd | wc -l‘ > /dev/null 2>&1

numcyh=‘ls *.cyh | wc -l‘ > /dev/null 2>&1

numksn=‘ls *.ksn | wc -l‘ > /dev/null 2>&1

nummdb=‘ls *.mdb | wc -l‘ > /dev/null 2>&1

# DO CONVERSIONS IF THEY CAME FROM BINARY INCOMPATIBLE SYSTEMS

if [ "$AnalysisHostType" != "$SubmitHostType" ] ; then

   if [ "$numdac" -ne 0 ] ; then

      find . -name \*.dac -print | awk -F/ ’{print $2}’ > names

      for i in ‘cat names‘

      do

         $CONFIL /INP=$i/TYP=11 - DAC/SOU=$SourceType \

			/DES=$DestType/OV=Y/\*=$jobname.msg  >>$jobname.log

      done

      rm -f names

   fi

   if [ "$numpsd" -ne 0 ] ; then

      find . -name \*.psd -print | awk -F/ ’{print $2}’ > names

      for i in ‘cat names‘

      do

         $CONFIL /INP=$i/TYP=11 - DAC/SOU=$SourceType \

			/DES=$DestType/OV=Y/\*=$jobname.msg  >>$jobname.log

      done

      rm -f names

   fi

   if [ "$numcyh" -ne 0 ] ; then

      find . -name \*.cyh -print | awk -F/ ’{print $2}’ > names

      for i in ‘cat names‘

      do

         $CONFIL /INP=$i/TYP=11 - DAC/SOU=$SourceType \

			/DES=$DestType/OV=Y/\*=$jobname.msg  >>$jobname.log

      done

      rm -f names

   fi

   if [ "$numksn" -ne 0 ] ; then

      find . -name \*.ksn -print | awk -F/ ’{print $2}’ > names

      for i in ‘cat names‘

      do

         $CONFIL /INP=$i/TYP=11 - DAC/SOU=$SourceType \

			/DES=$DestType/OV=Y/\*=$jobname.msg  >>$jobname.log

      done

      rm -f names

   fi

   if [ "$nummdb" -ne 0 ] ; then

      find . -name \*.mdb -print | awk -F/ ’{print $2}’ > names

      for i in ‘cat names‘

      do

         $CONFIL /INP=$i/TYP=74 - MDB/SOU=$SourceType \

			/DES=$DestType/OV=Y/\*=$jobname.msg  >>$jobname.log

      done

      rm -f names

   fi

fi

# Perform the analysis;

# env FAT_COMMAND_STR is defined in rcf file & exported to this machine

$ExecDir/FatigueSubmit $FAT_COMMAND_STR ; check_status $? 

# SUCCESSFUL EXIT OF SCRIPT

exit_normal

Record 1:	TITLE	(80A1)

Record 2:	NNODES,MAXNOD,DEFMAX,NDMAX,NWIDTH	(2I9 E15.6, 2I9) 

Record 3:	SUBTITLE1	(80A1)

Record 4:	SUBTITLE2	(80A1)

Record 5 to n+4:	NODID, (DATA(J), J=1, NWIDTH)	(I8, (5E13.7)) 

Record 1:	TITLE	(80A1)

Record 2:	NWIDTH	(I5)

Record 3:	SUBTITLE1		(80A1)

Record 4:  	SUBTITLE2		(80A1)

Record 5 To N+4:	ID, NSHAPE, (DATA(J), J=1,NWIDTH)	(2I8, /, (6E13.7))