±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 654  |  »Ø¸´: 1

yhwsmile

½ð³æ (СÓÐÃûÆø)

[½»Á÷] ¡¾ÇóÖú¡¿ÇóÖú£º°ïæ¿´ÏÂÕâ¸ö³ÌÐòÊÇÔõôת¶þ½øÖƵĿ©£¬Ð»Ð»°¡ ÒÑÓÐ1È˲ÎÓë

Âé·³¸÷λ°ïæ¿´¿´£¬ÕâÊÇÒ»¸ö¶ÔÊý¾Ý½øÐмòµ¥¼ÓÃܺ󣬶ÔÊý¾Ý½øÐжþ½øÖÆ×ª»»£¬×Ó³ÌÐòwrite_hd¾ÍÊÇת¶þ½øÖÆ£¬×Ó³ÌÐòxzen_jaÊÇÊý¾Ý¼ÓÃÜ~~~~

fortran²»ÄÜÃæÏò¶ÔÏó£¬ÎÒÏÖÔÚÏë°ÑÕâ¸ö³ÌÐòת³ÉVB£¬ÏÖÔÚÎÒ¿´²»¶®Õâ¸ö³ÌÐòÊÇÔõôת¶þ½øÖƵģ¬Âé·³¸÷λ³æÓѰïæ¿´¿´~~~

ͼƬ1Ϊstation.txt
ͼƬ2ΪÊý¾Ý¸ñʽ
CODE:
program data_conv
      integer ns
      integer,allocatable :: sta(:)
      character t_r*3,cst*5
      integer(kind=2) tm(367)
      integer ln,ld,i_dim,ieof
      character datdir*50,outdir*50,hisdir*50,logdir*50   !!!!×ÊÁÏĿ¼£¬Êä³ö½á¹ûĿ¼£¬ãÐÖµÎļþ´æ´¢Ä¿Â¼

          !!!!!!!¶ÁȡĿ¼Îļþ
          open(10,file='config.txt',err=2050)
          read(10,'(12x,i4)',err=2050)ns
          read(10,'(12x,a50)',err=2050)datdir  !¶þ½øÖÆÎļþµÄ´æ´¢Â·¾¶
          read(10,'(12x,a50)',err=2050)outdir
          read(10,'(12x,a50)',err=2050)hisdir
          read(10,'(12x,a50)',err=2050)logdir
          close(10)
          goto 90
2050  print*,'input the direct access is err, the run will stop'
      stop 9999

90    continue

    allocate(sta(ns))
      t_r='ctm'
open(110,file='station.txt')  !¶ÁÎļþÃû£¬Ö»ÓÐÕ¾ºÅ¡£
do i=1,ns
read(110,*)sta(i)
enddo
close(110)
do ln=1,ns
       write(cst,'(i5)')sta(ln)
       tm=32766
       open(20,file='e:\extr\ԭʼ×ÊÁÏ\hisctm\'//t_r//cst//'.dat',err=999)  !ָʾÎı¾ÎļþµÄ·¾¶
98     read(20,*,end=999)nsta,nya
       read(20,'(30i6)',end=999)(tm(ld),ld=1,366)
       ly=nya-1950
       ieof=6915
       call write_hd(t_r,sta(ln),ly,i_dim,tm,ieof,datdir)
       goto 98   
999   continue               
      close(20)
      enddo  !!!for do ln=1,ns  
      deallocate(sta)   
      
end program data_conv

subroutine write_hd(t_r,ist,irecs,i_dim,b0,ieof,wysm)
       parameter(nn=7)   !!!!¶¨ÒåÐèÒª´¦ÀíµÄ±äÁ¿Êý
       integer(kind=2) b0(i_dim)
       integer ieof,ist,irecs
       character t_r*3,stat*5,ysm(nn)*3,ysf(nn)*7,wysm*50
       data ysm/'crd','crr','ctm','ctn','ctd','crs','cci'/
       data ysf/'hiscrd\','hiscrr\','hisctm\','hisctn\','hisctd\','hiscrs/','hiscci\'/
           integer len1
!!!!!!!crd08-08ʱ½µË®Á¿£¬crr20-20ʱ½µË®Á¿£¬ctm20-20ʱ×î¸ßÆøÎ£¬ctn20-20ʱ×îµÍÆøÎ£¬ctd20-20ʱƽ¾ùÆøÎÂ
      
    if(ieof/=6915)then
       ieof=-99
       print*,'ÄúÎÞȨ½øÐд˲Ù×÷£¬ÇëÁªÏµ¹ÜÀíÔ±'
       return
       endif
      
       if(i_dim/=367)then
       ieof=-10
       print*,'×ÊÁÏÊý×鳤¶È´íÎó£¬i_dim=   ',i_dim
       return
       endif
      
       if(i_dim==367)then
!!!!!!!Åжϵ±Ç°ÐèҪдÈëµÄ±äÁ¿        
        do k=1,nn
        if(t_r==ysm(k))kk=k
        enddo
        
        do i=1,i_dim-1
        ix0=b0(i)
!!!!!!!¶Ôµ±Ç°Ð´ÈëÊý¾Ý×ö¼òµ¥µÄ±ä»»        
     if(t_r(1:2)=='cr') call xzen_ja(ist,i+5,ix0)
        if(t_r(1:2)=='ct') call xzen_ja(ist,i+10,ix0)
        b0(i)=ix0
        enddo
        b0(i_dim)=irecs+1950   !!!!!!Êý×é×îºóÒ»¸öÖµ¸³ÎªÄê
        
!!!!!!!дÊý¾ÝÎļþ
        write(stat,'(i5)')ist
        close(8)
                len1=len_trim(wysm)
        open(8,file=wysm(1:len1)//ysf(kk)//ysf(kk)//stat//'.dat',access='direct',recl=2*i_dim,err=99)

        write(8,rec=irecs,err=999)b0

        close(8)
        ieof=1
        return
        
       endif
      
99     ieof=0
       print*,'´ò¿ªÎļþ´íÎó',wysm(1:len1),ysf(kk),ysm(kk),stat,'.dat'
       close(8)
       return
999    ieof=-2
       print*,'дÈëÎļþ´íÎó',wysm(1:len1),ysf(kk),ysm(kk),stat,'.dat'
       close(8)
       return
      
end subroutine write_hd

!!!!¶ÔÊäÈëµÄÊýÖµix0×ö¼òµ¥×ª»»
subroutine xzen_ja(ist,i,ix0)
      integer ist,i,ix0
      integer maxx,mins
      
      maxx=30000
      mins=-9990
      is3=mod(ist,3)
      it3=mod(i,3)
      it5=mod(i,5)
      it7=mod(i,7)
      it11=mod(i,11)
      it13=mod(i,13)
      it17=mod(i,17)
      
      if(ix0mins)then
      if(is3==0)then
       if(it3==0)ix0=ix0+it5+it17+it13
       if(it3==1)ix0=ix0+it7+it17+it11
       if(it3==2)ix0=ix0+it5+it11+it13
      else
       if(it3==0)ix0=ix0+it7+it11+it13
       if(it3==1)ix0=ix0+it3+it13+it11
       if(it3==2)ix0=ix0+it5+it11+it17
      endif
      else
       ix0=ix0
      endif
      
      return
end subroutine xzen_ja




[ Last edited by nono2009 on 2010-11-11 at 07:26 ]
»Ø¸´´ËÂ¥
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)

ÒýÓûØÌû:
Originally posted by yhwsmile at 2010-09-29 09:40:37:
Âé·³¸÷λ°ïæ¿´¿´£¬ÕâÊÇÒ»¸ö¶ÔÊý¾Ý½øÐмòµ¥¼ÓÃܺ󣬶ÔÊý¾Ý½øÐжþ½øÖÆ×ª»»£¬×Ó³ÌÐòwrite_hd¾ÍÊÇת¶þ½øÖÆ£¬×Ó³ÌÐòxzen_jaÊÇÊý¾Ý¼ÓÃÜ~~~~

fortran²»ÄÜÃæÏò¶ÔÏó£¬ÎÒÏÖÔÚÏë°ÑÕâ¸ö³ÌÐòת³ÉVB£¬ÏÖÔÚÎÒ¿´²»¶®Õâ¸ö³ÌÐòÊÇ ...

ÖðÏîÏà³ý·¨ÇóÓࣿ£¿£¿
ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
2Â¥2010-11-09 19:49:54
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ yhwsmile µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Çóµ÷¼Á +4 ÐܶþÏëÉϰ¶ 2026-04-06 4/200 2026-04-06 17:17 by dongzh2009
[¿¼ÑÐ] 288»·¾³×¨Ë¶,Çóµ÷²ÄÁÏ·½Ïò +16 lllllos 2026-04-04 18/900 2026-04-06 16:41 by À¶ÔÆË¼Óê
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¶û±õ¹¤Òµ´óѧ085600Ó¢Ò»Êý¶þ337·ÖÇóµ÷¼Á +12 lyz0427 2026-04-03 12/600 2026-04-06 06:37 by houyaoxu
[¿¼ÑÐ] ÉúÎïѧ308·ÖÇóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +8 ÏàÐűػá¹ââÍòÕ 2026-04-05 10/500 2026-04-05 12:19 by Hdyxbekcb
[¿¼ÑÐ] 290Çóµ÷¼Á +7 luoziheng 2026-04-04 7/350 2026-04-04 23:17 by lqwchd
[¿¼ÑÐ] 282µç×ÓÐÅÏ¢0854ר˶µ÷¼Á +4 202451007219 2026-04-02 6/300 2026-04-04 21:55 by laoshidan
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÄÏʦ·¶361·Ö£¬»¯Ñ§Çóµ÷¼Á +7 Nicole88888 2026-04-01 7/350 2026-04-04 18:28 by macy2011
[¿¼ÑÐ] 322Çóµ÷¼Á +6 FZAC123 2026-04-03 6/300 2026-04-03 22:23 by ¿ÆÑÐСר¼Ò
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖйúʯÓÍ´óѧ»¯Ñ§¹¤³Ì323·ÖÇóµ÷¼Á +4 »¯¹¤×¨Ë¶323·Ö 2026-04-03 6/300 2026-04-03 22:12 by dongzh2009
[¿¼ÑÐ] 335Çóµ÷¼Á +7 ÉòÇåÁ§ 2026-04-03 7/350 2026-04-03 18:55 by lijunpoly
[¿¼ÑÐ] 320Çóµ÷¼Á +5 Õñ¡ªTZ 2026-04-02 5/250 2026-04-03 14:42 by fxue1114
[¿¼ÑÐ] ¹¤¿Æ 267Çóµ÷¼Á +5 wanwan00 2026-04-02 7/350 2026-04-03 14:14 by zhangdingwa
[¿¼ÑÐ] 11408£¬284·Ö£¬¶þÕ½Õæ³ÏÇóµ÷¼Á +4 12.27 2026-04-02 4/200 2026-04-03 14:14 by dxiaoxin
[¿¼ÑÐ] 315Çóµ÷¼Á +6 ˳Àí³ÉÕÅ 2026-04-03 8/400 2026-04-03 14:04 by °ÙÁéͯ888
[¿¼ÑÐ] 275ѧ˶081000·þ´Óµ÷¼Áµ½ÆäËûרҵ£¬±£²»×¡±¾×¨ÒµÁË +7 һֻССˮţ 2026-04-02 8/400 2026-04-02 14:23 by alice-2022
[¿¼ÑÐ] Ò»Ö¾Ô¸°²»Õ´óѧ¼ÆËã»ú¿ÆÑ§Óë¼¼Êõѧ˶£¬331·ÖÇóµ÷¼Á +5 ½¯²ýÅôqtj 2026-04-01 5/250 2026-04-02 08:10 by fxue1114
[¿¼ÑÐ] 292Çóµ÷¼Á +17 ľ³æer12138 2026-04-01 17/850 2026-04-01 21:37 by Æß¶È²»ÐÅÈÎ
[¿¼ÑÐ] 085600 Ò»Ö¾Ô¸9 ×Ü·Ö351 Çóµ÷¼ÁѧУ +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 269Çóµ÷¼Á +4 ÎÒÏë¶ÁÑÐ11 2026-03-31 4/200 2026-03-31 10:04 by cal0306
[¿¼ÑÐ] 083000»·¾³¿ÆÑ§Ó빤³Ìµ÷¼Á£¬×Ü·Ö281 +4 ³È×Ó£¨Ê¤Ò⣩ 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û