January 22, 2002 November 16, 2001 November 13, 2001 Card stesun6:/work11/card   (stesun6でのみしか稼動しない。) card1.f zcard *************************************************************************** November 13, 2001 しかし、コンパイルはできるが、実行させるとcore dumpする。 調べた結果、UNRAVELの引き数の与え方がおかしい。 At card1.f CALL UNRAVEL(NDIM,N,M,Q8,B8,X,MRANK,COND) But at norlib_cray.f SUBROUTINE UNRAVEL(NDIM,N,M,A,B,X,MRANK,COND,RD,CO,G2,IP) Then, at card1.f changed to CALL UNRAVEL(NDIM,N,M,Q8,B8,X,MRANK,COND,RD,CO,G2,IP) also in the beggining the program, add REAL*8 RD(M),CO(M),G2(M) INTEGER IP(M) *************************************************************************** October 16, 2001 SP data : UHF cp1lt stesun10 /ESR27/2001-10-16_cp1lt_aclp_120_uhf /ESR00/guisdap_nozawa2にて write_ascii_cp1l.m でアスキーファイルを作り、 /work9/DATにて make_bi_guisdap_3.pro にてバイナリーファイル。 tr011016cp1l_2min.gdat3 makene2.proからmakene_cp1l.proを作成。 makene_cp1l.proによりASCII file: ne011016_as.datを作成する。 作成したASCII file をstesun6:/work11/card/nedata_as/に移す。 plot_card_flux.pro *************************************************************** January 23 Data 2000.oct.16 に関して、FOF2との比較(Plot_ne_max3.pro ただし19以降を使 用)よりcalib factorを5.9にした。 makene_cp1l.proの中でfactorをかける。