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