1!$Id:$
2      subroutine pmacr5 (lct,ct,j)
3
4!      * * F E A P * * A Finite Element Analysis Program
5
6!....  Copyright (c) 1984-2017: Regents of the University of California
7!                               All rights reserved
8
9!-----[--.----+----.----+----.-----------------------------------------]
10!     Purpose: Command language instruction subprogram: Part 5
11
12!     Inputs:
13!        lct      - Command option for current command
14!        ct(3)    - Command parameters for current command
15!        j        - Number of command to execute
16
17!     Outputs:
18!        Depends on value of command j: None for serial version
19!-----[--+---------+---------+---------+---------+---------+---------+-]
20      implicit   none
21
22      integer    j
23      character  lct*15
24      real*8     ct(3)
25
26      save
27
28!     Solution command instruction subprogram - part 5.
29
30      if(j.eq.1) then
31
32        write(*,2000) ' OUTMesh '
33
34      endif
35
36!     Formats
37
382000  format('  *ERROR*',a,'command only available in FEAP version')
39
40      end
41