From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Feb 13 18:21:41 2002
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6+3.4W/8.11.3) id g1D9LfR91898;
	Wed, 13 Feb 2002 18:21:41 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from quanta.synchem.kyoto-u.ac.jp (quanta.synchem.kyoto-u.ac.jp [130.54.33.30])
	by castle.jp.FreeBSD.org (8.11.6+3.4W/8.11.3) with ESMTP/inet id g1D9LeW91893
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 13 Feb 2002 18:21:41 +0900 (JST)
	(envelope-from chat95@mbox.kyoto-inet.or.jp)
Received: from localhost (quanth.synchem.kyoto-u.ac.jp [130.54.33.130])
	by quanta.synchem.kyoto-u.ac.jp (8.11.6/3.7W/00091819) with ESMTP id g1D9IqG00572
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 13 Feb 2002 18:18:52 +0900 (JST)
Date: Wed, 13 Feb 2002 18:21:44 +0900 (JST)
Message-Id: <20020213.182144.576082740.maho@scarlatti.synchem.kyoto-u.ac.jp>
To: FreeBSD-users-jp@jp.FreeBSD.org
From: chat95@mbox.kyoto-inet.or.jp (Nakata Maho)
X-Mailer: Mew version 2.0 on XEmacs 21.1.14 (Cuyahoga Valley)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+011218
X-Sequence: FreeBSD-users-jp 66904
Subject: [FreeBSD-users-jp 66904] Fortran =?ISO-2022-JP?B?GyRCJCwbKEI=?=
 =?ISO-2022-JP?B?GyRCQmckLSRKJVUlISUkJWskcjpuQC4kRyQtJEobKEI=?=
 =?ISO-2022-JP?B?GyRCJCQbKEI=?=
Errors-To: owner-FreeBSD-users-jp@jp.FreeBSD.org
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: chat95@mbox.kyoto-inet.or.jp

$B$J$+$?$G$9!#(B
$B$h$b$d$H;W$C$?$N$G$9$,!"(B
FreeBSD$B$NIUB0$N%U%)!<%H%i%s%3%s%Q%$%i$G$O(B2G$B0J>e$N%U%!%$%k$,=q$1$^$;$s!#(B

      Program FileO
      Real*8 X(16*1024*1024)
      do i=1, 16*1024*1024
        X(i)=1.0D0
      end do
      open(1,File='fileout.data',status='unknown',
     1       form='unformatted')
      write(6,*)'Open OK--->fileout.data'
      do i=1,1024
        if(mod(i,10).eq.0) write(6,*)i
        write(1)X
      end do
      end

$B$3$l$O(B1024*1024*16*8=256M$B$N%U%!%$%k$r=g$K(B1024$B2s(B(256G)$B=q$-9~$`(B
$B%W%m%0%i%`$G$9!#(B
2G$B$r1[$($?$H$3$m$G;`$s$G$7$^$$$^$9!#(B

$B;29M(BURL
http://www.kjemi.uio.no/software/dalton/resources/LFS-description.php
$B$G$9!#(B

$B$*$=$i$/$3$3$N%Q%C%A$rM?$($?$i$&$^$/9T$/$O$:$G$9(B...
$B$4Cm0U$/$@$5$$!#(B
-- 
 $B$J$+$?$^$[(B / $BCfED??=((B

