Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site eneevax.UUCP
Path: utzoo!linus!vaxine!wjh12!harvard!seismo!rlgvax!cvl!umcp-cs!eneevax!phaedrus
From: phaedrus@eneevax.UUCP
Newsgroups: net.lang.f77,net.unix,net.unix-wizards
Subject: f77 bug or am I doing something wrong?
Message-ID: <141@eneevax.UUCP>
Date: Fri, 29-Jun-84 10:18:15 EDT
Article-I.D.: eneevax.141
Posted: Fri Jun 29 10:18:15 1984
Date-Received: Tue, 10-Jul-84 04:06:34 EDT
Organization: EE Dept, Maryversity of Uniland
Lines: 64

When I try to execute the following program I get an error
message that looks like this:


Error message that the machine types out to my program

write sfe: [100] error in format
logical unit 3, named 'fort.dat'
lately writing sequential formatted external IO
part of last format: (6o2|0)
Illegal instruction (core dumped)

What am I doing wrong?

By the way the "|" symbol between the 2 and the 0 is not a 
typing error the machine does it that way.

       program test
       real a(100)
       character*4 name
       n=6
       do 10 j=1,n
       do 10 i=1,n
       a(i+(j-1)*n)=iabs(i-j)
10     continue
       name='A   '
       call prpmat('fort.dat',name,n,n,0,a,0)
       end

      subroutine prpmat(fname,id,m,n,img,xreal,ximag)
      character fname*(*)
      real xreal(m,n)
      real ximag(m,n)
      integer i,id,img,j,m,n
      open(unit=3,file=fname,status='new')
      write(3,*) id,m,n,img
      write(6,*) id,m,n,img
100   format(4a1,3i4)
      do 10 j=1,n
          write(3,101) (xreal(i,j), i=1,m)
          if(img.ne.0)then
              write(3,101) (ximag(i,j), i=1,m)
          endif
10    continue
101   format(6o20)
      close(3)
      return
      end

If anyone can tell me what I am doing wrong I would truly
appreciate it.

				thank you
				pravin kumar


-- 



Without hallucinogens, life itself would be impossible.

ARPA:   phaedrus%eneevax%umcp-cs@CSNet-Relay
UUCP:   {seismo,allegra,brl-bmd}!umcp-cs!eneevax!phaedrus