%N grfao %F $MIR/src/grfao.f
%D Format character string containing integers
%B
      SUBROUTINE GRFAO (FORMAT, L, STR, V1, V2, V3, V4)
      CHARACTER*(*) FORMAT
      INTEGER L
      CHARACTER*(*) STR
      INTEGER V1, V2, V3, V4

 The input string FORMAT is copied to the output string STR with
 the first occurrence of '#' replaced by the value of V1, the second
 by the value of V2, etc.  The length of the resulting string is 
 returned in L.
