Search Site | Contact Details | FAQ

ADAS Subroutine xxfrmt_trm

       subroutine xxfrmt_trm( isa_max , ila_max , xja_max ,
     &                        iw      , fmt03
     &                    )
c-----------------------------------------------------------------------
c
c ****************** fortran 77 subroutine: xxfrmt_trm *****************
c
c  purpose: To determine the format and string length required for the
c           term strings of an ion
c
c
c subroutine:
c
c  input : (i*4)  isa_max   = largest value for term multiplicity
c  input : (i*4)  ila_max   = largest value for term orb. ang.mom
c  input : (r*8)  xja_max   = largest value for term (stat.wt-1)/2
c
c  output: (i*4)  iw        = field length required for term strings
c  output: (c*63) fmt03     = appropriate format specification
c
c routines:
c          routine    source    brief description
c          ----------------------------------------------------------
c         i4unit     adas      fetch unit number for output of messages
c
c
c author:  h. p. summers, university of strathclyde
c          ja7.08
c          tel. 0141-548-4196
c
c date:    26/07/06
c
c version: 1.1                          date: 26/07/2006
c modified: hugh p summers
c               - first edition.
c
c-----------------------------------------------------------------------
      CHARACTER*31        FMT03
      INTEGER             ILA_MAX,     ISA_MAX,     IW
      REAL*8              XJA_MAX
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk