{"id":228,"date":"2021-12-10T09:21:39","date_gmt":"2021-12-10T01:21:39","guid":{"rendered":"http:\/\/purplepoolobservatory.com\/?p=228"},"modified":"2021-12-10T09:21:39","modified_gmt":"2021-12-10T01:21:39","slug":"fortran-tips","status":"publish","type":"post","link":"https:\/\/purplepoolobservatory.com\/?p=228","title":{"rendered":"fortran tips"},"content":{"rendered":"\n<pre class=\"wp-block-code\"><code>1.  \u5148\u5b9a\u4e49\u7c7b\u578b\uff0c\u518d\u5b9a\u4e49\u5b58\u50a8\u5927\u5c0f\r\n\r\ncharacter a\r\n\r\ndimension a(10)\u200b\r\n\r\n2.  \u83b7\u53d6\u5f53\u524d\u65f6\u95f4\u200b\r\n\r\n\u7b2c\u4e00\u79cd\u65b9\u6cd5\r\n\r\nprogram when \r\n\r\n integer*4 today(3), now(3) \r\n\r\n call idate(today) ! today(1)=day, (2)=month, (3)=year \r\n\r\n call itime(now) ! now(1)=hour, (2)=minute, (3)=second \r\n\r\n write ( *, 1000 ) today(2), today(1), today(3), now \r\n\r\n 1000 format ( 'Date ', i2.2, '\/', i2.2, '\/', i4.4, '; time ', &amp; i2.2, ':', i2.2, ':', i2.2 )\r\n\r\n stop \r\n\r\n end\u200b\r\n\r\n\u7b2c\u4e8c\u79cd\u65b9\u6cd5\r\n\r\nprogram now_time\r\n\r\ninteger date_time(8)       \r\n\r\ncharacter*10 b(3)       \r\n\r\ncall date_and_time(b(1), b(2), b(3), date_time)       \r\n\r\nprint *,\u2019date_time    array values:\u2019       \r\n\r\nprint *,\u2019year=\u2019,date_time(1)       \r\n\r\nprint *,\u2019month_of_year=\u2019,date_time(2)      \r\n\r\n print *,\u2019day_of_month=\u2019,date_time(3)       \r\n\r\nprint *,\u2019time difference in minutes=\u2019,date_time(4)       \r\n\r\nprint *,\u2019hour of day=\u2019,date_time(5)       \r\n\r\nprint *,\u2019minutes of hour=\u2019,date_time(6)       \r\n\r\nprint *,\u2019seconds of minute=\u2019,date_time(7)      \r\n\r\n print *,\u2019milliseconds of second=\u2019,date_time(8)      \r\n\r\n print *, \u2019DATE=\u2019,b(1)      \r\n\r\n print *, \u2019TIME=\u2019,b(2)       \r\n\r\nprint *, \u2019ZONE=\u2019,b(3)\r\n\r\nend\r\n\r\n3.   \u6570\u5b57\u8f6c\u5b57\u7b26\r\n\r\n      program tran\r\n\r\n      integer i\r\n\r\n      character*3 a\r\n\r\n      i=500\r\n\r\n      write(a,'(i3)') i\r\n\r\n      print *, a \/\/ ' this is a test'\r\n\r\n      end<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"gallery","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-228","post","type-post","status-publish","format-gallery","hentry","category-technology","post_format-post-format-gallery"],"_links":{"self":[{"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=\/wp\/v2\/posts\/228","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=228"}],"version-history":[{"count":1,"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=\/wp\/v2\/posts\/228\/revisions"}],"predecessor-version":[{"id":229,"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=\/wp\/v2\/posts\/228\/revisions\/229"}],"wp:attachment":[{"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=228"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=228"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/purplepoolobservatory.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=228"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}