CORD2R referencing CORD1R appears to put mystran into infinite loop

[jemmel3170]

Using: mystran version 17.0.0

Example of offending CORDxx combo:

CORD1R         1    1011    1012    1013
CORD2R         2       1      0.      0.      0.      0.      0.      1.
              1.      0.      0.

On submittal, the mystran job appears stuck in infinite loop after initial messages (eg "0/GRID PROCESSOR"). After killing job with ^c, the F06 shows repeated entries of:

 *ERROR  1316: PROGRAMMING ERROR IN SUBROUTINE CORD_PROC                      
               VARIABLE ICID_RIDO =        0. MUST BE A POSITIVE INTEGER

But job runs thru OK when the CORD2R is commented-out (or if its RID is changed to 0).

Complete input file:

$---------------------------------------------------
SOL 101
CEND
$---------------------------------------------------
TITLE = CORD2R referencing CORD1R => infinite loop + Err1316
SUBTITLE = SIMPLE: 2 CORDS + 3 GRIDS + 2 CBARS
ECHO = SORT
$
DISPLACEMENT(PRINT) = ALL
SPCFORCE(PRINT) = ALL
$
SPC = 100
SUBCASE 1
  LABEL = +1GX
  LOAD = 101
BEGIN BULK
$---------------------------------------------------
PARAM,GRDPNT,0
PARAM,WTMASS,.002588
PARAM,PRTCORD,2       $ print CORD processing info
$------12------23------34------45------56------67------78------89------90------0
SPC1         100  123456    1011
GRAV         101       0      1.   386.4      0.      0.
$------12------23------34------45------56------67------78------89------90------0
CORD1R         1    1011    1012    1013
CORD2R         2       1      0.      0.      0.      0.      0.      1.
              1.      0.      0.
$------12------23------34------45------56------67------78------89------90------0
GRID        1011       0      0.      0.      0.       0
GRID        1012       0      0.      0.     10.       0
GRID        1013       0     10.      0.      0.       0
$------12------23------34------45------56------67------78------89------90------0
CBAR        1012     104    1011    1012      1.      1.      1.
CBAR        1013     104    1011    1013      1.      1.      1.
PBARL        104    7050             BAR 
              .2      .3    0.05
MAT1        7050  10.5+6             .33    .102   23.-6     20.
$------12------23------34------45------56------67------78------89------90------0
ENDDATA

[zchlrnr]

Good catch!
We'll look into this as soon as we can, and thank you for reporting this bug.