00001
00002 c
00003 c Copyright (c) 1986,1987,1988,1989,1990,1991,1992,1993,
00004 c by Steve McMillan, Drexel University, Philadelphia, PA.
00005 c
00006 c All rights reserved.
00007 c
00008 c Redistribution and use in source and binary forms are permitted
00009 c provided that the above copyright notice and this paragraph are
00010 c duplicated in all such forms and that any documentation,
00011 c advertising materials, and other materials related to such
00012 c distribution and use acknowledge that the software was developed
00013 c by the author named above.
00014 c
00015 c THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
00016 c IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
00017 c WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
00018 c
00019
00020 program simin
00021 c
00022 integer*2 n,m,num,jl,jr,idic,long
00023 common/sim fc2/n,m,num(288),jl(288),jr(288),idic(288),
00024 & long(16000)
00025 c
00026 c Read the data in "simout" format:
00027 c
00028 read(5,*)n,m
00029 c
00030 j = 0
00031 l = 1
00032 100 read(5,*)
00033 read(5,*)
00034 read(5,*,err=999,end=999)i1,i2,i3
00035 j = j + 1
00036 num(j) = i1
00037 jl(j) = i2
00038 jr(j) = i3
00039 c
00040 if (num(j).gt.0) then
00041 idic(j) = l
00042 read(5,*)(long(k),k=l,l+num(j)-1)
00043 l = l + num(j)
00044 else
00045 idic(j) = -1
00046 end if
00047 c
00048 go to 100
00049 c
00050 999 write(6,*)n,m,j,l
00051 end
