Search Site | Contact Details | FAQ

ADAS Subroutine xxmkrp

       subroutine xxmkrp( ndstack       , 
     &                    iz0           , iptnl       , 
     &                    ncptn_stack   , cptn_stack   
     &                 )
c-----------------------------------------------------------------------
c								       
c ****************** fortran 77 subroutine: xxmkrp *********************
c
c purpose: To create a root partition and return the partition block.
c
c
c calling program: adas416
c
c subroutine:
c
c input : (i*4)   ndstack     = maximum partition block lines
c input : (i*4)   iz0         = nuclear charge
c input : (i*4)   iptnl       = root partition level (0 or 1)
c
c output: (i*4)  ncptn_stack  = number of lines in the partition block
c output: (c*80) cptn_stack() = character string lines of the partition
c                               block
c
c
c routines:
c	   routine    source	brief description
c	   ----------------------------------------------------------
c	  i4unit     adas      fetch unit number for output of messages
c         xxopen     adas      inquire, open and allocate file to unit
c         xxslen     adas      find non-blank characters in string
c         xxword     adas      extract position of number in buffer
c
c
c author:  h. p. summers, university of strathclyde
c          ja7.08
c          tel. 0141-548-4196
c
c date:    04/10/06
c
c version: 1.1				date: 04/10/2006
c modified: hugh p summers
c		- first edition.
c
c version  : 1.2
c date     : 15-01-2007
c modified : Hugh Summers
c              - corrected metastable count for Ne+0.
c
c------------------------------------------------------------------------
c-----------------------------------------------------------------------
      CHARACTER*80        CPTN_STACK(NDSTACK)
      INTEGER             IPTNL,       IZ0,         NCPTN_STACK, NDSTACK
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk