sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:46
0001 C 0002 C 0003 C 0004 C 0005 FUNCTION WDSAX1(X) 0006 C ********THREE PARAMETER WOOD SAXON 0007 C FOR PROJECTILE 0008 C HINT1(72)=R, HINT1(73)=D, HINT1(74)=W, HINT1(75)=FNORM 0009 C 0010 COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50) 0011 SAVE /HIPARNT/ 0012 WDSAX1=HINT1(75)*(1.+HINT1(74)*(X/HINT1(72))**2)/ 0013 & (1+EXP((X-HINT1(72))/HINT1(73))) 0014 IF (HINT1(74).LT.0.) THEN 0015 IF (X.GE.HINT1(72)/SQRT(ABS(HINT1(74)))) WDSAX1=0. 0016 ENDIF 0017 RETURN 0018 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|