Search Site | Contact Details | FAQ

ADAS Subroutine ceprep

C
      FUNCTION ceprep(str)
C---------------------------------------------------------------------
C                                                                     
C  ****************** FORTRAN 77 FUNCTION: CEPREP ********************
C
C  PURPOSE: Prepares a string for passsing to xxdtes. Takes C*18
C           and returns C*19; add a space to start if not d10 or 
C           f10-f14. In this case a space is added at the end.
C
C  CALLING PROGRAM: VARIOUS
C
C  SUBROUTINE:
C
C  INPUT  :  (C*18)   str    = input configuration (EISSNER)
C  OUTPUT :  (C(19)   ceprep = lengthened configuration
C
C
C  ROUTINES: NONE
C
C  AUTHOR   :  Martin O'Mullane
C  DATE     :  21-11-2003
C
C
C  VERSION  : 1.1
C  DATE     :  21-11-2003
C  MODIFIED : Martin O'Mullane
C             - First version.
C
C  VERSION  : 1.2
C  DATE     :  15-11-2004
C  MODIFIED : Martin O'Mullane
C             - Do not change configuration if first character is a space.
C
C-------------------------------------------------------------------------------
      CHARACTER*18        STR
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk