Search Site | Contact Details | FAQ

ADAS Subroutine xxfrmt_t

       subroutine xxfrmt_t( ita_max , isa_max , ila_max , xja_max ,
     &                      iw      , fmt02
     &                    )
c-----------------------------------------------------------------------
c
c ****************** fortran 77 subroutine: xxfrmt_t *******************
c
c  purpose: To determine the format and file length required for the
c           transition strings of an ion
c
c
c subroutine:
c
c  input : (i*4)  ita_max   = largest value for transition index
c  input : (i*4)  isa_max   = largest value for transition multiplicity
c  input : (i*4)  ila_max   = largest value for transition orb. ang.mom
c  input : (r*8)  xja_max   = largest value for transition (stat.wt-1)/2
c
c  output: (i*4)  iw        = field length required for trans. strings
c  output: (c*63) fmt02     = 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*63        FMT02
      INTEGER             ILA_MAX,     ISA_MAX,     ITA_MAX,     IW
      REAL*8              XJA_MAX
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk