コード例 #1
0
ファイル: FortranTypes.cs プロジェクト: Altaxo/Altaxo
		public CommonBlock(int DimensionDouble, int DimensionInt, int DimensionSingle, int DimensionComplex)
		{
			//this.MeName = TheName;
			if (DimensionDouble > 0)
			{
				this.MeDoubleData = new Odouble[DimensionDouble];

				for (int i = 0; i < DimensionDouble; i++)
				{
					MeDoubleData[i] = new Odouble();
				}
			}
			if (DimensionInt > 0)
			{
				this.MeIntData = new Oint[DimensionInt];

				for (int i = 0; i < DimensionInt; i++)
				{
					MeIntData[i] = new Oint();
				}
			}
		}
コード例 #2
0
ファイル: FortranTypes.cs プロジェクト: olesar/Altaxo
        public CommonBlock(int DimensionDouble, int DimensionInt, int DimensionSingle, int DimensionComplex)
        {
            //this.MeName = TheName;
            if (DimensionDouble > 0)
            {
                MeDoubleData = new Odouble[DimensionDouble];

                for (int i = 0; i < DimensionDouble; i++)
                {
                    MeDoubleData[i] = new Odouble();
                }
            }
            if (DimensionInt > 0)
            {
                MeIntData = new Oint[DimensionInt];

                for (int i = 0; i < DimensionInt; i++)
                {
                    MeIntData[i] = new Oint();
                }
            }
        }