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