!*******************************************************************************
%routine %spec pla (%string (31) name,%integer ins,outs,feeds,prods,
  %integerarrayname and,or,%integername phi1y,phi2y, %integerarrayname inx,outx)
!*******************************************************************************
%constant %string (2) blue  ="M", metal    ="M",  nm="M"
%constant %string (2) green ="D", diffusion="D",  nd="D"
%constant %string (2) red   ="P", poly     ="P",  np="P"
%constant %string (2)             implant  ="I",  ni="I"
%constant %string (2)             glass    ="G",  ng="G"
%constant %string (2)             contact  ="C",  nc="C"
%constant %string (2)             buried   ="B",  nb="B"

%constant %integer true = 0,   false = 1

%external %integer %map %spec buried contacts
%external %routine %spec end symbol
%external %routine %spec symbol (%string (31) name)
%external %routine %spec box     %alias "ILAPBOX"     (%integer xl, yl, xu, yu)
%external %routine %spec polygon %alias "ILAPPOLYGON" (%real x, y)
%external %routine %spec wirex   (%integer x, y, l)
%external %routine %spec wirey   (%integer x, y, l)

%external %routine %spec ETPX    (%string (31) name, %integer x, y, l)
%external %routine %spec ETPY    (%string (31) name, %integer x, y, l)
%external %routine %spec ETDX    (%string (31) name, %integer x, y, l)
%external %routine %spec ETDY    (%string (31) name, %integer x, y, l)
%external %routine %spec DTPX    (%string (31) name, %integer x, y, l)
%external %routine %spec DTPY    (%string (31) name, %integer x, y, l)
%external %routine %spec DTDX    (%string (31) name, %integer x, y, l)
%external %routine %spec DTDY    (%string (31) name, %integer x, y, l)
%external %routine %spec DTDBX   (%string (31) name, %integer x, y, l)
%external %routine %spec DTDBY   (%string (31) name, %integer x, y, l)

%external %routine %spec ax  (%integer u)
%external %routine %spec ay  (%integer v)
%external %routine %spec axy (%real x, y)
%external %routine %spec dx  (%integer u)
%external %routine %spec dy  (%integer v)
%external %routine %spec dxy (%real x, y)

%external %routine %spec layer (%string (4) colour)
%external %string (4) %function %spec clayer
%external %routine %spec width (%integer size)
%external %integer %function %spec cwidth

%external %routine %spec draw        (%string (31) name, %integer x, y)
%external %routine %spec drawmx      (%string (31) name, %integer x, y)
%external %routine %spec drawmy      (%string (31) name, %integer x, y)
%external %routine %spec drawrot     (%string (31) name, %integer x, y, rot)
%external %routine %spec draw mx rot (%string (31) name, %integer x, y, rot)
%external %routine %spec draw my rot (%string (31) name, %integer x, y, rot)

%external %integer %function %spec SX (%string (31) name)
%external %integer %function %spec SY (%string (31) name)
%external %integer %function %spec LX (%string (31) name)
%external %integer %function %spec LY (%string (31) name)
%external %integer %function %spec symbol exists (%string (31) name)

%external %routine %spec dm    (%integer x, y)
%external %routine %spec pm    (%integer x, y)
%external %routine %spec pdms  (%integer x, y)
%external %routine %spec pdmn  (%integer x, y)
%external %routine %spec pdmw  (%integer x, y)
%external %routine %spec pdme  (%integer x, y)
%external %routine %spec pdbn  (%integer x, y)
%external %routine %spec pdbs  (%integer x, y)
%external %routine %spec pdbe  (%integer x, y)
%external %routine %spec pdbw  (%integer x, y)
%external %routine %spec pdcn  (%integer x, y)
%external %routine %spec pdcs  (%integer x, y)
%external %routine %spec pdce  (%integer x, y)
%external %routine %spec pdcw  (%integer x, y)
%external %routine %spec pdbns (%integer x, y)
%external %routine %spec pdbew (%integer x, y)

!*******************************************************************************