This time, actually attach simple.f90.
Alan
__________________________
Alan W. Irwin
Astronomical research affiliation with Department of Physics and Astronomy,
University of Victoria (astrowww.phys.uvic.ca).
Programming affiliations with the FreeEOS equation-of-state implementation
for stellar interiors (freeeos.sf.net); PLplot scientific plotting software
package (plplot.org); the libLASi project (unifont.org/lasi); the Loads of
Linux Links project (loll.sf.net); and the Linux Brochure Project
(lbproject.sf.net).
__________________________
Linux-powered Science
__________________________
!
! Parameters for identifying the kind of PLplot's real
! numbers (a configuration parameter)
! Use whatever name suits you better.
!
module plplot_flt
integer, parameter :: plflt = kind(1.0d0)
integer, parameter :: plunicode = 4
end module
module plplotp
use plplot_flt
implicit none
contains
!***********************************************************************
subroutine plvectors_0(u, v, scale)
implicit none
real(kind=plflt) u(:,:), v(:,:), scale
call plvec07(u,v,size(u,1),size(u,2),scale)
end subroutine
!***********************************************************************
subroutine plvectors_1(u, v, scale, xg, yg)
implicit none
real(kind=plflt) u(:,:), v(:,:), xg(:), yg(:), scale
call plvec17(u,v,size(u,1),size(u,2),scale,xg,yg)
end subroutine
end module plplotp
module plplot
use plplotp
end module plplot
------------------------------------------------------------------------------
ThinkGeek and WIRED's GeekDad team up for the Ultimate
GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the
lucky parental unit. See the prize list and enter to win:
http://p.sf.net/sfu/thinkgeek-promo
_______________________________________________
Plplot-devel mailing list
Plplot-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/plplot-devel
