diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
| commit | 754ef58dfd2880f95dd9765d035389f391917492 (patch) | |
| tree | d7056a5fcb559893c91df8d7533fa5fdb03d8480 /Dragon/src/LIBAPL.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
| parent | 744b40856a035580b786378cae13d453edd26689 (diff) | |
Merge branch '19-depreciate-use-of-version-4-and-5-0-draglibs' into 'main'
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
See merge request dragon/5.1!40
Diffstat (limited to 'Dragon/src/LIBAPL.f')
| -rw-r--r-- | Dragon/src/LIBAPL.f | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Dragon/src/LIBAPL.f b/Dragon/src/LIBAPL.f index 24efbcb..aa4367c 100644 --- a/Dragon/src/LIBAPL.f +++ b/Dragon/src/LIBAPL.f @@ -899,6 +899,11 @@ SIGA(I)=SIGA(I)+SIGS(I,1) 730 CONTINUE CALL LCMPUT(KPLIB,'NTOT0',NGRO,2,SIGA) +*---- +* VOID H-FACTOR +*---- + CALL LCMLEN(KPLIB,'H-FACTOR',LENGT,ITYLCM) + IF(LENGT.NE.0) CALL LCMDEL(KPLIB,'H-FACTOR') GO TO 50 *---- * CHECK IF ALL NBISO ISOTOPES HAVE BEEN PROCESSED. |