| ²é¿´: 576 | »Ø¸´: 0 | ||
¸Õ´ïR2012½ð³æ (СÓÐÃûÆø)
|
[ÇóÖú]
fortran³ÌÐò½Ó¿Ú£¨interface£©±¨´í£¬´óÉñ·¹ýÇëÖ¸µãÒ»¶þ£¡£¡
|
|
½Ó¿ÚÈçÏ£º INTERFACE DOUBLE PRECISION FUNCTION DENORM (N, X) INTEGER,INTENT(IN) :: N DOUBLE PRECISION,INTENT(IN) :: X(N) END FUNCTION DENORM END INTERFACE DENORMº¯ÊýÈçÏ£º DOUBLE PRECISION FUCTION DENORM(N,X) INTEGER I, N DOUBLE PRECISION AGIANT, FLOATN, ONE, RDWARF, RGIANT, S1, S2, S3, & X(*), X1MAX, X3MAX, XABS, ZERO SAVE ONE, ZERO, RDWARF, RGIANT DATA ONE,ZERO,RDWARF,RGIANT /1.0D0,0.0D0,3.834D-20,1.304D19/ ÆäÖÐNÊÇÏòÁ¿XµÄάÊý£¬ÆäËü¾ùΪÖмä±äÁ¿»òÕß³£Á¿¡£ |
» ±¾Ìû¸½¼þ×ÊÔ´Áбí
-
»¶Ó¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com - ¸½¼þ 1 : slatec.f90
- ¸½¼þ 2 : Source1.for
2016-11-20 20:25:25, 3.4 K
2016-11-20 20:25:32, 5.45 K
» ²ÂÄãϲ»¶
ÃæÉϵÄË®ºÜÉî
ÒѾÓÐ18È˻ظ´
¹úÉç¿ÆÍ¨Ñ¶ÆÀÉó
ÒѾÓÐ5È˻ظ´
5¸ö%2F£¬·Ç¹Ì¶¨¶Î22¸ö×Öĸ
ÒѾÓÐ9È˻ظ´
ÉúÃü¿ÚC13ÃæÉÏ»áÆÀʱ¼ä
ÒѾÓÐ11È˻ظ´
ÄÚÐÄØÑ·¦
ÒѾÓÐ16È˻ظ´
ÉúÃü¿ÚÃæÉÏ»áÆÀ½áÊøÁËÂð´ó¼ÒÓÐÖªµÀ½á¹ûÂð£¿ÏÖÔÚ»¹Ã»Óнá¹ûÕý³£²»£¿
ÒѾÓÐ9È˻ظ´
ͶӢÎÄÆÚ¿¯ÈçºÎ²éÖØ
ÒѾÓÐ6È˻ظ´
²»ÒªÔÙÊý¹ú×ÔÈ»ÉêÇëÊéµÄ filecode µÄ·Ö¸ô·û¸öÊýÁË
ÒѾÓÐ21È˻ظ´
²®°·Éϼ׻ùÇóÖú
ÒѾÓÐ7È˻ظ´
¿ç³ö°æÉçÉÌͶ¸å
ÒѾÓÐ5È˻ظ´











»Ø¸´´ËÂ¥
10