src/tool/Utilitaire/utb302.h

   1                 nbpbco(typenh) = nbpbco(typenh) + 1
   2 c
   3                 write (ulbila,10100)
   4                 write (ulbila,11101) mess54(langue,2)(1:37),
   5      >                               mess14(langue,3,typenh)
   6                 write (ulbila,12101) mess14(langue,2,-1)
   7                 if ( sdim.eq.1 ) then
   8                   write (ulbila,14201) lenoeu, vn(1)
   9                 elseif ( sdim.eq.2 ) then
  10                   write (ulbila,14202) lenoeu, vn(1), vn(2)
  11                 else
  12                   write (ulbila,14203) lenoeu, vn(1), vn(2), vn(3)
  13                 endif
  14                 write (ulbila,12102) mess08(langue,1),
  15      >                               mess08(langue,2),
  16      >                               mess14(langue,1,typenh), iaux,
  17      >                               mess08(langue,3),
  18      >                               mess08(langue,4)
  19 c