/[ff3d]/ff3d/testsuite/check.ph
ViewVC logotype

Diff of /ff3d/testsuite/check.ph

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ArceneL, Tue Oct 14 15:29:59 2003 UTC revision 1.8 by ArceneL, Fri Oct 24 12:30:31 2003 UTC
# Line 248  sub DomainCheck{ Line 248  sub DomainCheck{
248  sub DomainMeshCheck{  sub DomainMeshCheck{
249    
250      # $domainop = required domain operation      # $domainop = required domain operation
251        # $bc = value of Dirichlet boundary condition on outside mesh boundary
252      # $signature = expected result      # $signature = expected result
253    
254      my ($domainop,$signature) = @_;      my ($domainop,$bc,$signature) = @_;
255    
256      # The list of useful povray objects, written to one povray file      # The list of useful povray objects, written to one povray file
257      # and used as necessary in the following FF3D script.      # and used as necessary in the following FF3D script.
# Line 287  EOF Line 288  EOF
288      $script .= "u = 1 on <1,0,0>;\n" if $domainop =~ /<1,0,0>/;      $script .= "u = 1 on <1,0,0>;\n" if $domainop =~ /<1,0,0>/;
289      $script .= "u = 1 on <0,1,0>;\n" if $domainop =~ /<0,1,0>/;      $script .= "u = 1 on <0,1,0>;\n" if $domainop =~ /<0,1,0>/;
290      $script .= "u = 1 on <0,0,1>;\n" if $domainop =~ /<0,0,1>/;      $script .= "u = 1 on <0,0,1>;\n" if $domainop =~ /<0,0,1>/;
291      $script .= << 'EOF';  
292      u = 0 on M;      # The outside Dirichlet boundary condition value has to change
293  }      # depending on whether we compute the Laplacian on the inside or
294  EOF      # on the outside of the immersed object.
295    
296        $script .= "u = $bc on M;\n}\n";
297    
298        # Debugging output
299    
300        $script .= "save(medit,\"test\",M);\nsave(medit,\"test\",u,M);\n";
301    
302      # Final trace output, aimed at testing point values scattered      # Final trace output, aimed at testing point values scattered
303      # around the domain.      # around the domain.

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26