²é¿´: 719  |  »Ø¸´: 3
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

guojunhang

½ð³æ (ÕýʽдÊÖ)


[½»Á÷] ÎÊÒ»¸ö¹ØÓÚº¯Êýµ÷ÓõÄСÎÊÌâ

Çë½Ì¸öÎÊÌ⣬¿´¿´ÎÒÕâ¸öº¯Êý£¬fortran77дµÄ£º
      FUNCTION HEAVI(PRIS)
           REAL*8 PRIS   
      IF(PRIS.GT.0.0) THEN
         HEAVI=1.0
       ENDIF
       RETURN
C
         IF(PRIS.LT.0.0) THEN
          HEAVI=0.0
        ENDIF
       RETURN
         END

µ÷ÓõÄʱºò³öÏÖÏÂÁÐÇé¿ö£º
HEAVI(-3)=1.00000000000000£¬   
HEAVI(-3.0D0)=0.000000000000000E+000£¬
     HEAVI(-3.0)=1.00000000000000
HEAVI(3)=1.00000000000000£¬     
HEAVI(3.0D0)=1.000000000000000E+000£¬   
HEAVI(3.0)=1.00000000000000
²»ÖªµÀʲôԭÒò£¿

¸Ä³ÉÕâÑùÔõô¾ÍºÃÁËÄØ£¿

      Program ex005
      real HEAVI
      write(*,*) HEAVI(3.0d0)
      end

      FUNCTION HEAVI(PRIS)
       REAL PRIS
       Real HEAVI   
       IF(PRIS.GT.0.0) THEN
         HEAVI=1.0
       else
         HEAVI=0.0
       ENDIF
       RETURN
      END  
ÓïÑÔFortran77£¬gfortran»·¾³¡£
Çó½âÊÍ¡£
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

» ÇÀ½ð±ÒÀ²£¡»ØÌû¾Í¿ÉÒԵõ½:

²é¿´È«²¿É¢½ðÌù

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

1303haojian

гæ (³õÈëÎÄ̳)


¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-12-12 22:29:29
jjdg(½ð±Ò+1): ¸ÐлӦÖú 2011-12-13 00:49:52
°ÑµÚÒ»¸öif¿éÖеÄreturnÈ¥µô
4Â¥2011-12-12 14:57:58
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 4 ¸ö»Ø´ð
¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
dubo(½ð±Ò+1): »¶Ó­ÌÖÂÛ 2011-11-11 23:31:16
guojunhang(½ð±Ò+1): Õâ¸öÎÊÌâÎÒÒ²×¢Òâµ½ÁË£¬ËùÒÔ¸ÄÕýºóÁ˳ÌÐòÁ÷³Ì 2011-11-13 18:27:43
ÄãµÚÒ»¸ö³ÌÐòÖеÚÒ»¸ö return Ö±½Ó¾Í½áÊøÁËÄǸöº¯Êý£¬ºóÃæµÄÄǸöÌõ¼þÓÀÔ¶²»»á±»Ö´Ðа¡¡­¡­
2Â¥2011-11-11 22:53:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

maomao1210

½ð³æ (ÕýʽдÊÖ)


¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû
jjdg(½ð±Ò+1): ¸Ðл²ÎÓë 2011-11-12 00:41:19
ÓàÔó³É: ר¼Ò¿¼ºË´æµµ 2011-11-13 21:35:24
ÒýÓûØÌû:
1Â¥: Originally posted by guojunhang at 2011-11-11 21:53:59:
Çë½Ì¸öÎÊÌ⣬¿´¿´ÎÒÕâ¸öº¯Êý£¬fortran77дµÄ£º
      FUNCTION HEAVI(PRIS)
           REAL*8 PRIS   
      IF(PRIS.GT.0.0) THEN
         HEAVI=1.0
       ENDIF
       RETURN
C
         IF(PRIS. ...

Ã²ËÆ±äÁ¿¶¨ÒåÒ²ÓÐÎÊÌ⣬µÚÒ»¸öº¯ÊýÖÐÓõÄÊÇreal*8,Ö÷³ÌÐò¸øµÄÓÐʱºòÊÇreal*8 ,ÓÐʱºòÊÇreal*4

[ Last edited by maomao1210 on 2011-11-11 at 23:00 ]
3Â¥2011-11-11 22:55:13
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +4 z1z2z3879 2026-03-14 6/300 2026-03-19 17:18 by fei626-918
[¿¼ÑÐ] ¡¾¿¼Ñе÷¼Á¡¿»¯Ñ§×¨Òµ 281·Ö£¬Ò»Ö¾Ô¸ËÄ´¨´óѧ£¬³ÏÐÄÇóµ÷¼Á +5 ³Ô³Ô³Ô²ÅÓÐÒâÒå 2026-03-19 5/250 2026-03-19 16:18 by 30660438
[¿¼ÑÐ] ÄÜÔ´²ÄÁÏ»¯Ñ§¿ÎÌâ×éÕÐÊÕ˶ʿÑо¿Éú8-10Ãû +4 ÍÑÓ±¶ø³ö 2026-03-16 12/600 2026-03-19 16:17 by ÍÑÓ±¶ø³ö
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤´óѧ0703»¯Ñ§318·Ö£¬ÓпÆÑо­Àú£¬Çóµ÷¼Á +3 һƿ±½¼×Ëá 2026-03-14 3/150 2026-03-19 15:17 by ¾¡Ë´Ò¢1
[¿¼ÑÐ] Ò»Ö¾Ô¸Î÷°²½»Í¨´óѧ²ÄÁϹ¤³Ìרҵ 282·ÖÇóµ÷¼Á +5 ·ãÇÅZL 2026-03-18 7/350 2026-03-19 14:52 by ¹¦·ò·è¿ñ
[¿¼ÑÐ] 317Çóµ÷¼Á +3 Éê×ÓÉêÉê 2026-03-19 6/300 2026-03-19 14:16 by Éê×ÓÉêÉê
[¿¼ÑÐ] Ò»Ö¾Ô¸Äϲý´óѧ£¬327·Ö£¬²ÄÁÏÓ뻯¹¤085600 +3 Ncdx123456 2026-03-19 3/150 2026-03-19 13:18 by houyaoxu
[¿¼ÑÐ] 330Çóµ÷¼Á +3 С²Ä»¯±¾¿Æ 2026-03-18 3/150 2026-03-18 21:55 by ÎÞи¿É»÷111
[¿¼ÑÐ] »¯Ñ§¹¤³Ì321·ÖÇóµ÷¼Á +15 ´óÃ×·¹£¡ 2026-03-15 18/900 2026-03-18 14:52 by haxia
[¿¼ÑÐ] ÊÕ¸´ÊÔµ÷¼ÁÉú +4 ÓêºóÇïºÉ 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[¿¼ÑÐ] 0703»¯Ñ§Çóµ÷¼Á ×Ü·Ö331 +3 ZY-05 2026-03-13 3/150 2026-03-18 10:58 by macy2011
[¿¼ÑÐ] 334Çóµ÷¼Á +3 Ö¾´æ¸ßÔ¶ÒâÔÚ»úÐ 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[»ù½ðÉêÇë] ½ñÄêµÄ¹ú»ù½ðÊÇ´ò·ÖÖÆÂ𣿠50+3 zhanghaozhu 2026-03-14 3/150 2026-03-16 17:07 by ±±¾©À³ÒðÈóÉ«
[¿¼ÑÐ] 0703Ò»Ö¾Ô¸211 285·ÖÇóµ÷¼Á +5 ly3471z 2026-03-13 5/250 2026-03-16 16:16 by ŶŶ123
[¿¼ÑÐ] 085600µ÷¼Á +5 ÑúÑú123sun 2026-03-12 6/300 2026-03-16 15:58 by ÑúÑú123sun
[¿¼ÑÐ] 26¿¼ÑÐÒ»Ö¾Ô¸ÖйúʯÓÍ´óѧ(»ª¶«)305·ÖÇóµ÷¼Á +3 ¼ÎÄêÐÂ³Ì 2026-03-15 3/150 2026-03-15 13:58 by ¹þ¹þ¹þ¹þºÙºÙºÙ
[¿¼ÑÐ] 294Çóµ÷¼Á +3 Zys010410@ 2026-03-13 4/200 2026-03-15 10:59 by zhq0425
[¿¼ÑÐ] 297Ò»Ö¾Ô¸ÉϽ»085600Çóµ÷¼Á +5 Ö¸¼â°ËǧÀï 2026-03-14 5/250 2026-03-14 17:26 by a²»Ò×
[¿¼ÑÐ] 0856²ÄÁÏÓ뻯¹¤301Çóµ÷¼Á +5 ÞÈÊø¹â 2026-03-13 5/250 2026-03-13 22:00 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] 070303Ò»Ö¾Ô¸Î÷±±´óѧѧ˶310ÕÒµ÷¼Á +3 dÈçÔ¸Éϰ¶ 2026-03-13 3/150 2026-03-13 10:43 by houyaoxu
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û