ord = 30 ! Anzahl der Zeilen
nzahn = 48 !Anzahl der Zähne in der Tabelle
*create,lesen,inp
*dim,dummy_array,array,ord,49
*vread,dummy_array,D:\PFAD,txt,,jik,49,ord,0,2
(49(f16.0))
*end
/inp,lesen,inp


!DO-Schleife tangentiale Kräfte - REAL
*do,izahn,1,12
 *dim,tooth_%izahn%_tan_real,table,ord,1,,FREQ
  *do,j,1,ord
      !Frequenzen in Table
      tooth_%izahn%_tan_real(j,0)=dummy_array(j,1)
      !Kräfte real tangential in Table
      tooth_%izahn%_tan_real(j,1)=dummy_array(j,1+%izahn%)
   *enddo
*enddo

!DO-Schleife tangentiale Kräfte - IMAG
*do,izahn,13,24
 *dim,tooth_%izahn%_tan_imag,table,ord,1,,FREQ
   *do,j,1,ord
       !Frequenzen in Table
       tooth_%izahn%_tan_imag(j,0)=dummy_array(j,1)
       !Kräfte imaginär tangential in Table
       tooth_%izahn%_tan_imag(j,1)=dummy_array(j,1+%izahn%)
   *enddo
*enddo
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! DO-Schleife radiale Kräfte - REAL
*do,izahn,25,36
 *dim,tooth_%izahn%_rad_real,table,ord,1,,FREQ
  *do,j,1,ord
      !Frequenzen in Table
      tooth_%izahn%_rad_real(j,0)=dummy_array(j,1)
      !Kräfte real radial in Table
      tooth_%izahn%_rad_real(j,1)=dummy_array(j,1+%izahn%)
   *enddo
*enddo
! DO-Schleife radiale Kräfte - IMAG
*do,izahn,37,48
 *dim,tooth_%izahn%_rad_imag,table,ord,1,,FREQ
   *do,j,1,ord
       !Frequenzen in Table
       tooth_%izahn%_rad_imag(j,0)=dummy_array(j,1)
       !Kräfte radial imaginär in Table
       tooth_%izahn%_rad_imag(j,1)=dummy_array(j,1+%izahn%)
   *enddo
*enddo


*get,Substep,ACTIVE,0,set,SBST    !gibt die Anzahl der Substeps wieder
 *do,ROW,0,Substep
! Kräfte in tangentialer Richtung
f,n1,fy,%tooth_1_tan_real(ROW,0)%,%tooth_13_tan_imag(ROW,0)% ! Realteil VALUE=Amplitude*cos(phasenwinkel)
f,n2,fy,%tooth_2_tan_real(ROW,0)%,%tooth_14_tan_imag(ROW,0)% ! Imaginärteil VALUE2=Amplitude*sin(phasenwinkel)
f,n3,fy,%tooth_3_tan_real(ROW,0)%,%tooth_15_tan_imag(ROW,0)%
f,n4,fy,%tooth_4_tan_real(ROW,0)%,%tooth_16_tan_imag(ROW,0)%
f,n5,fy,%tooth_5_tan_real(ROW,0)%,%tooth_17_tan_imag(ROW,0)%
f,n6,fy,%tooth_6_tan_real(ROW,0)%,%tooth_18_tan_imag(ROW,0)%
f,n7,fy,%tooth_7_tan_real(ROW,0)%,%tooth_19_tan_imag(ROW,0)%
f,n8,fy,%tooth_8_tan_real(ROW,0)%,%tooth_20_tan_imag(ROW,0)%
f,n9,fy,%tooth_9_tan_real(ROW,0)%,%tooth_21_tan_imag(ROW,0)%
f,n10,fy,%tooth_10_tan_real(ROW,0)%,%tooth_22_tan_imag(ROW,0)%
f,n11,fy,%tooth_11_tan_real(ROW,0)%,%tooth_23_tan_imag(ROW,0)%
f,n12,fy,%tooth_12_tan_real(ROW,0)%,%tooth_24_tan_imag(ROW,0)%
! Kräfte in radialer Richtung
f,n1,fx,%tooth_25_rad_real(ROW,0)%,%tooth_37_rad_imag(ROW,0)%
f,n2,fx,%tooth_26_rad_real(ROW,0)%,%tooth_38_rad_imag(ROW,0)%
f,n3,fx,%tooth_27_rad_real(ROW,0)%,%tooth_39_rad_imag(ROW,0)%
f,n4,fx,%tooth_28_rad_real(ROW,0)%,%tooth_40_rad_imag(ROW,0)%
f,n5,fx,%tooth_29_rad_real(ROW,0)%,%tooth_41_rad_imag(ROW,0)%
f,n6,fx,%tooth_30_rad_real(ROW,0)%,%tooth_42_rad_imag(ROW,0)%
f,n7,fx,%tooth_31_rad_real(ROW,0)%,%tooth_43_rad_imag(ROW,0)%
f,n8,fx,%tooth_32_rad_real(ROW,0)%,%tooth_44_rad_imag(ROW,0)%
f,n9,fx,%tooth_33_rad_real(ROW,0)%,%tooth_45_rad_imag(ROW,0)%
f,n10,fx,%tooth_34_rad_real(ROW,0)%,%tooth_46_rad_imag(ROW,0)%
f,n11,fx,%tooth_35_rad_real(ROW,0)%,%tooth_47_rad_imag(ROW,0)%
f,n12,fx,%tooth_36_rad_real(ROW,0)%,%tooth_48_rad_imag(ROW,0)%
 *enddo