# stdsetup- setup the common block /channel/
include ratfor
subroutine stdsetup (fdi, fdo, fde)
   integer fdi, fdo, fde
   include channel
   
   data channel /ERR, MAXCHNL*ERR/
   data apos / 32767 /
   data vpos / 32767 /
   data nc / 0, MAXCHNL*0 /
   data ic / 1, MAXCHNL*1 /
   data md / READWRITE, MAXCHNL*READWRITE /
   
   # reserve standard channel assignments
   channel(STDCOM) = READ       # (F)COM.CM
   channel(6) = WRITE           # $PLT
   channel(10) = WRITE          # $TTO(1)
   channel(11) = READ           # $TTI(1)
   channel(12) = WRITE          # $LPT
   if (fdi>=0) channel(fdi) = READ      # STDIN
   if (fdo>=0) channel(fdo) = WRITE     # STDOUT
   if (fde>=0) channel(fde) = WRITE     # STDERR
   
   return
   end