xda2mgf.in

一个用来实现偏微分方程中网格的计算库

#!@PERL@
#
# $Id: xda2mgf.in,v 1.3 2004-11-05 02:19:33 bbarth Exp $
# Perl script to convert libMesh XDA meshes to MGF-format
# Author: Bill Barth, 2004


use strict;
my $cnt=0;
my $nelem=0;
while(<>)
  {
    if ($cnt==0)
      {
        print "MGF  002:000\n";
      }
    elsif ($cnt==1)
      {
        print;
        my @sl = split /#/;
        $nelem = @sl[0];
      }
    elsif ($cnt < 6)
      {
        print;
      }
    elsif ($cnt < 9)
      {
      }
    elsif ($cnt < 11)
      {
        print;
      }
    elsif ($cnt < $nelem + 11)
      {
        print "27 0 ".$_;
      }
    else
      {
        print;
      }
    $cnt++;
  }
  
# Local Variables:
# mode: perl
# End: