C (C) Copyright 1996-2016 ECMWF.
C 
C This software is licensed under the terms of the Apache Licence Version 2.0
C which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. 
C In applying this licence, ECMWF does not waive the privileges and immunities 
C granted to it by virtue of its status as an intergovernmental organisation nor
C does it submit to any jurisdiction.
C

      program  magics

C Defines the lines for the title
      character*25 title
      dimension title(2)

      data title /
     +    'My first line', 
     +    'My second line' /

C open Magics
      call popen

C setup the output name
      call ???

C Setup the geographical area : here we use the Australia definition
      call psetr('subpage_lower_left_longitude', ???)
      call psetr('subpage_upper_right_longitude', ???)
      call psetr('subpage_upper_right_latitude', ???)
      call psetc('subpage_map_projection', ???)
      call psetr('subpage_lower_left_latitude', ???)

C Setup the background coastlines
      call psetc('???????????????????????????)')
      call ???

C Import the wind speed data
      call psetc(???)
      call ???

C Define the shading for the wind speed
      call pset?('???????????????????????????)')
      call pcont


C Import the wind data
      call psetc(???)
      call ???

C Define the visualisation of the wind
      call pset?('???????????????????????????)')
      call pwind

C Import the Msl data
      call psetc(???)
      call ???


C Define the visualisation of the msl
      call pset?('???????????????????????????)')
      call pcont

c DEfine the foreground map
      call pset?('???????????????????????????)')
      call pcoast

C add a positional text
      call pset?('???????????????????????????)')
      call ptext

C Add a legend
      call psetc('legend', 'on')
C Position the legend!
      call pset?('???????????????????????????)')

C Close Magics
      call pclose

      end
