463
463
CALL TDMFRE(NBYT,PTRW,STATUS)
465
465
9000 FORMAT (I6,8X,I7,7X,1PE9.1,8X,0PF4.2,6X,0PF8.0,5X,A1)
466
9010 FORMAT ('*** Detected only ',I3,' linear independant parameters ',
466
9010 FORMAT ('*** Detected only ',I3,' linear independent parameters ',
467
467
+ 'on the total of ',I3,' ***')