Thread View: fj.lang.fortran
2 messages
2 total messages
Started by Mahiko Watanabe
Tue, 29 Jul 1997 00:00
Q : Digital Visual Fortranでの文字列の扱いはどうなっているのでしょうか？
Author: Mahiko Watanabe
Date: Tue, 29 Jul 1997 00:00
Date: Tue, 29 Jul 1997 00:00
33 lines
1681 bytes
1681 bytes
$B;O$a$^$7$F!"EOn4$H?=$7$^$9!#(B
$B%U%!%$%kL>$J$I$rA`:n$7$?$j$9$k$N$K(BFortran$B$OITJX$J$N$G(B
$B%U%!%$%kL>$NIU$1J}$G$4$^$+$7$?$j$7$F$?$N$G$9$,!"(B
DVF$B$NB8:_$rCN$C$?$N$GEj9F$5$;$F$$$?$@$-$^$7$?!#(B
$B$A$J$_$K;d$O$^$@(BDVF$B$r9XF~$7$F$*$j$^$;$s(B^^;)
$B!{(B DVF$B$G%W%m%0%i%`$9$k;~$NJ8;zNs$N07$$$K$D$$$F<ALd$G$9!#(B
$BNc$($P!"(B100$BJ8;zJ,$NJQ?t$r3NJ]$7$F<B:]$K$O$=$NCf$N@hF,$+$i(B
50$BJ8;zJ,$K$7$+%G!<%?$rF~$l$J$+$C$?>l9g(BDVF$B$G$O$I$N$h$&$K(B
$B2r<a$5$l$k$N$G$7$g$&$+!)(B
1.) 50$BJ8;z$N%G!<%?!\(B50$BJ8;z$N6uGr(B
$B$J$N$+C1$K(B
2.) 50$BJ8;zJ,$N%G!<%?(B
$B$N$I$A$i$J$N$+J,$+$j$^$;$s!#(B2.)$B$NMM$K07$&;v$,=PMh$k$N$G$7$g$&$+!)(B
$B:G?7$N(BFortran$B$N5,3J$G$O$I$&$J$C$F$$$k$N$G$7$g$&$+!)(B
Pascal$B$N$h$&$KJ8;zNs$rG[Ns$N$h$&$K$_$J$7$FG[Ns$N@hF,$K@5L#$N(B
$BJ8;z?t$,F~$C$F$$$F!":G8e$N6uGr$O%+%&%s%H$7$J$$$J$iJ8;zNsA`:n$,(B
$B$+$J$jMF0W$K=PMh$k$N$G$9$,(B...
$B$4B8CN$NJ}!"%U%)%m!<$h$m$7$/$*4j$$$$$?$7$^$9!#(B
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
| Mahiko Watanabe |
| $BEOJU(B $B??I'(B |
|magico@ipc.hiroshima-u.ac.jp |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
Re: Q : Digital Visual Fortran での文字列の扱いはどうなっているのでしょうか？
Author: Arasaki Yasuki
Date: Tue, 29 Jul 1997 00:00
Date: Tue, 29 Jul 1997 00:00
74 lines
3242 bytes
3242 bytes
In article <5rkb4s$1ll$1@news.hiroshima-u.ac.jp>
magico@ipc.hiroshima-u.ac.jp (Mahiko Watanabe) $B$5$s(Bwrote:
>> $BNc$($P!"(B100$BJ8;zJ,$NJQ?t$r3NJ]$7$F<B:]$K$O$=$NCf$N@hF,$+$i(B
>> 50$BJ8;zJ,$K$7$+%G!<%?$rF~$l$J$+$C$?>l9g(BDVF$B$G$O$I$N$h$&$K(B
>> $B2r<a$5$l$k$N$G$7$g$&$+!)(B
$B!DCfN,!D(B
>> $B:G?7$N(BFortran$B$N5,3J$G$O$I$&$J$C$F$$$k$N$G$7$g$&$+!)(B
DVF$B$N$3$H$OCN$j$^$;$s!#$,!"(B94$BG/HG$N(BISO$B5,3J$G$O4pK\E*$K$O(B
>> 1.) 50$BJ8;z$N%G!<%?!\(B50$BJ8;z$N6uGr(B
$B$H$$$&$3$H$K$J$j$^$9!#$?$@$7!"J8;z$NF~$C$F$$$kItJ,$@$1$r(B
$BH4$-=P$9(BTRIM$B$H$$$&AH$_9~$_4X?t$d!"J8;z$NF~$C$F$$$kItJ,$@$1$ND9$5$r(B
$BJV$9(BLEN_TRIM$B$H$$$&AH$_9~$_4X?t$,$"$j$^$9!#(B
# LEN_TRIM$B$HF1MM$JF0:n$r$9$k4X?t$O$b$A$m$s(BFORTRAN77$B$G$b=q$1$^$9!#(B
$B$^$?!"$3$l$O(BDVF$B$K4^$^$l$F$$$k$+$I$&$+$OCN$j$^$;$s$,(B($B<BAu$9$k$+(B
$B$7$J$$$+$O=hM}7O$K$^$+$5$l$F$$$^$9(B)$B!"Nc$($P(B
USE 'ISO_VARYING_STRING'
TYPE(VARYING_STRING) :: STRING
STRING = '1234567890'
$B$GD9$5(B10$BJ8;z$NJ8;zNs$rJ];}$7!"(B
STRING = STRING // STRING
$B$G(BSTRING$B$OD9$5(B20$BJ8;z$NJ8;zNs(B'12345678901234567890'
$B$H$J$k!"?7$7$$J8;zNs7?(BVARYING_STRING$B$,Dj5A$5$l$F$$$^$9(B
($BNc$($P(Bhttp://www.fortran.com/fortran/stds_docs.html$B0J2<;2>H(B)$B!#(B
$B$3$N(BISO_VARYING_STRING$B%b%8%e!<%k$O(BFortran90$B5,3J$N0lIt$G$9(B
($B$?$@$7!"(BJIS$B5,3J$K$O$^$@$J$C$F$$$J$$(B)$B!#(B
$B<BAu$9$k$+$7$J$$$+$O=hM}7O$K$^$+$5$l$F$$$^$9$,!"8zN($N$3$H$r(B
$B$"$^$j$H$d$+$/8@$o$J$$$N$J$i%=!<%9$N%5%s%W%k$,8x3+$5$l$F$$$^$9(B
$B$N$G$=$l$r$b$i$C$F%3%s%Q%$%k$9$l$P$I$N=hM}7O$G$b;H$($^$9!#(B
-----
FUNCTION LTRIM(STR)
INTEGER LTRIM
CHARACTER*(*) STR
DO 10 LTRIM=LEN(STR),1,-1
IF (STR(LTRIM:LTRIM).NE.' ') RETURN
10 CONTINUE
END
--
WRITE(*,*) 'DATA WRITTEN TO FILE ''',
* FILE(1:MAX(LTRIM(FILE),1)),''''
$B$_$?$$$K;H$&!D(B
# $B%U%!%$%kL>$NA`:nDxEY$J$iITJX$O$J$$$H;W$&!#IT3J9%$G$O$"$k$,!#(B
(Fortran90$B$G$OD9$5(B0$B$NJ8;zNs$,07$($k$+$i(BLEN_TRIM$B$r(BMAX$B$K$$$l$J$/$F$b(BOK$B!"(B
$B$C$F$=$l0JA0$K(BTRIM(FILE)$B$@$1$G$$$$$d(B)
-----
Fortran90$B$J$i(B
CHARACTER(LEN=20) :: SEQNUM ! N$B$O(B20$B7e0J2<$r2>Dj(B
CHARACTER(LEN=80) :: BASENAME
READ(*,*) BASENAME
WRITE(SEQNUM,*) N; FILENAME=TRIM(BASENAME)//ADJUSTL(SEQNUM)
$B$H$$$C$?=q$-J}$GESCf$K6uGr$NF~$i$J$$%U%!%$%kL>$,MQ0U$G$-$^$9!#(B
# $B$b$A$m$s!"(BFORTRAN77$B$G$b;w$?$h$&$J$3$H$O$G$-$k$o$1$G$9$,!D(B
--
$B?7:j(B@$BL>Bg?M>p(B
arasaki@info.human.nagoya-u.ac.jp
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads