necesito de su ayuda otra vez sr bakunos con un programa de fortran aki les dejo lo que llevo
Programa POCONBE
!Este programa resuelve los problemas potenciales bidimensional utilizando elementos constantes frontera
Character*10 Filein.Fileout
Dimensión X(101),Y(101),XM(100),YM(100),F1(100),DF1(100)
Dimensión Kode (100) ,CX(20),CY(20),POT(20),FLUX(20),FLUX2(20)
Common/matg/g(100,100)
Common/math/h(100,100)
Conjunto de la máxima dimensión sistema de ecuación (MX)
MX=100
INP=5
IPR=5
Write*, '(A)' 'Nombre de archivo de entrada(MAX*10 CHART.)'
Read*, '(A)' Archivo
Open(INP,FILE*FILEIN,STATUS= 'OLD')
Write*, '(A)' 'Nombre del archivo de salida'
Read*, '(A)'Archivo de
Open(IRP,FILE*FILEOUT,STATUS= 'NEW')
Call inputpc(CX,CY,X,Y,KODE,F1)
Call GHMATPC (X,Y,XM,YM,G,F1,DF1,KODE,NX)
Call SLNPD(G,DF1,D,N,NX)
Calcular el potencial y los flujos en el interior de los puntos
Call INTERPC(F1,DF1,KODE,CX,CY,X,Y,POT,FLUX2,FLUX2)
Call OUTPTPC(XM,YM,F1,DF1,CX,CY,POT,FLUX1,FLUX2)
Cierre de entrada y salida de archivos
Close (INP)
Close (IRP)
Stop
End
les dejo estoy para que mas o menos tengan idea de los errores que tengo gracias
Programa POCONBE
!Este programa resuelve los problemas potenciales bidimensional utilizando elementos constantes frontera
Character*10 Filein.Fileout
Dimensión X(101),Y(101),XM(100),YM(100),F1(100),DF1(100)
Dimensión Kode (100) ,CX(20),CY(20),POT(20),FLUX(20),FLUX2(20)
Common/matg/g(100,100)
Common/math/h(100,100)
Conjunto de la máxima dimensión sistema de ecuación (MX)
MX=100
INP=5
IPR=5
Write*, '(A)' 'Nombre de archivo de entrada(MAX*10 CHART.)'
Read*, '(A)' Archivo
Open(INP,FILE*FILEIN,STATUS= 'OLD')
Write*, '(A)' 'Nombre del archivo de salida'
Read*, '(A)'Archivo de
Open(IRP,FILE*FILEOUT,STATUS= 'NEW')
Call inputpc(CX,CY,X,Y,KODE,F1)
Call GHMATPC (X,Y,XM,YM,G,F1,DF1,KODE,NX)
Call SLNPD(G,DF1,D,N,NX)
Calcular el potencial y los flujos en el interior de los puntos
Call INTERPC(F1,DF1,KODE,CX,CY,X,Y,POT,FLUX2,FLUX2)
Call OUTPTPC(XM,YM,F1,DF1,CX,CY,POT,FLUX1,FLUX2)
Cierre de entrada y salida de archivos
Close (INP)
Close (IRP)
Stop
End
les dejo estoy para que mas o menos tengan idea de los errores que tengo gracias