1
SUBROUTINE ex_4char(iposition,irecord,word)
5
integer i,iposition,irec_len
7
character word*4,letter*1,irecord*1
9
parameter(irec_len=100)
11
dimension letter(0:3),irecord(irec_len)
14
letter(i)=irecord(iposition+i)
17
word=letter(0)//letter(1)//letter(2)//letter(3)